3、运费计算 Function d(s) If s >= 1000 Then d = 0.1 ElseIf s >= 750 Then d = 0.07 ElseIf s >= 500 Then d = 0.05 ElseIf s >= 250 Then d = 0.02 Else d = 0 End If End Function
4、商场销售数据处理 Sub huizong()模糊分类汇总 s1 = 0: s2 = 0: s3 = 0: s4 = 0: s5 = 0 For i = 3 To 13 If Left(Cells(i, 3), 2) = "彩电" Then s1 = s1 + Cells(i, 6) If Left(Cells(i, 3), 2) = "空调" Then s2 = s2 + Cells(i, 6) If Left(Cells(i, 3), 3) = "微波炉" Then s3 = s3 + Cells(i, 6) If Left(Cells(i, 3), 3) = "热水器" Then s4 = s4 + Cells(i, 6) If Left(Cells(i, 3), 3) = "洗衣机" Then s5 = s5 + Cells(i, 6) Next i Range("f15") = s1 Range("f16") = s2 Range("f17") = s3 Range("f18") = s4 Range("f19") = s5 End Sub Function danjia(x) 用VBA计算单价 If x = "彩电V1" Then danjia = 3200 If x = "彩电V2" Then danjia = 4500 If x = "彩电V3" Then danjia = 5800 If x = "空调V1" Then danjia = 1200 If x = "空调V2" Then danjia = 880 If x = "空调V3" Then danjia = 780 If x = "微波炉V1" Then danjia = 120 If x = "微波炉V2" Then danjia = 160 If x = "热水器V1" Then danjia = 860 If x = "热水器V2" Then danjia = 780 If x = "洗衣机V1" Then danjia = 1200 If x = "洗衣机V2" Then danjia = 1800 If x = "洗衣机V3" Then danjia = 2500 End Function
5.B: 转到B盘 6.Rep Autoexec.bat auto.bat 改源文件名,准备冒名顶替 7.Copy a:\Autoexec,bal b: 复制自身 8.Echo I am Virus 表现症状(显示我是病毒) 9. :No-virus 正常程序入口 10. A: 转到A盘 11. \Auto 执行正常程序 12.Pause 暂停 取一张能启动机器的系统软盘 ,把 原 来 的 Autoexec.bat 修改为 A u t o .b at , 然后用该病毒程序去冒名顶替它。当用此盘启动计算机时, 如 B盘也有 A u t o e x e c .b at, 则把自身复制到B盘并显示” I am virus”, 第 8行为病毒部分,感染后的程序相当于在原来程序中嵌入了病毒程序。由此可看出 , 计算机病毒程序通常寄生于一个或多个被频繁调用的程序中 ( 如以上的 A u to e x e c .b at ) ,称之为宿主,计算机病毒通 常是利用宿主被用户调用而引起的。