A1=40 B1=20 A2=20 B2=40 四、完善程序题（共10分）】 30.[1]Drivel.Drive ="e:\ [2]Dir1.Path [3]Filel.Path Dir1.Path [4]Dir1.Path [5]Picture 五、编写程序题（共15分） 31.参考答案： Private Sub Command1_Click() Text4 Val(Text1)+Val(Text2)-Val(Text3) If Val(Text4)<=2000 Then Text5 =0 ElseIf Val(Text4)>2000 And Val(Text4)<=4000 Then Text5 (Val(Text4)-2000)*0.1 Else Text5 =(Val(Text4)-4000)*0.2 End If Text6 Val(Text4)-Val(Text5) End Sub Private Sub Command2_Click() Unload Me End Sub 989A1= 40 B1= 20 A2= 20 B2= 40 四、完善程序题{共 10 分) 30. [1 J Drive1. Drive = "e 八" [2J Dir1. Path [3J File1. Path = Dir1. Path [4J Dir1. Path [5J Picture 五、编写程序题{共 15 分} 1.参考答案: Private Sub CommandLClickO Text4 = Val(Textl) + Val(Text2) - Val(Text3) If Val(Text4) <= 2000 Then Text5 = 0 ElseIf Val(Text的> 2000 And Val(Text4) <= 4000 Then Text5 = (Val(Text4) - 2000) o. 1 Else Text5 = (Val(Text4) - 4000) 0.2 End If Text6 = Val(Text4) - Val(Text5) End Sub Private Sub Command2_CiickO Unload Me End Sub 989