29.(7分) A1=20 B1=10 A2=10 B2=20 四、完善程序题（共10分） 30. [1]AddItem [2]List1.ListIndex [3]List1.Text [4]List1.List(List1.ListIndex) [5]" 五、编写程序题（共15分） 31.参考答案： Private Sub Command1_Click() Text4=Val(Text1)+Val(Text2)-Val(Text3) If Val(Text4)<=1000Then Text5=0 Else If Val(Text4)>1000 And Val(Text4)<=3000 Then Text5=(Val(Text4)-1000)*0.15 Else Text5=Val(Text4)*0.2 End If Text6=Val(Text4)-Val(Text5) End Sub Private Sub Command2_Click() Unload Me End Sub 108029. (7 A1=20 B1=10 A2=10 B2=20 四、完善程序题{共 30. [lJAddItem [2JListl. ListIndex [3JListl. Text [4JListl. List(Listl. Listlndex) [5J"" 五、编写程序题{共 1. Private Sub Commandl_ClickO Text4 = Val(Textl) 十Val(Text2) - Val(Text3) If Val(Text4)<=1000Then Text5=0 Else If Val(Text4»1000 And Val(Text4)<=3000 Then Text5= (Val(Text4) -1000) 15 Else Text5=Val(Text4)传0.2 End If Text6=Val(Text4) - Val(Text5) End Sub Private Sub Command2_ClickO Unload Me End Sub 1080