29.(7分) A1=10B1=20 A2=20B2=10 四、完善程序题（共10分） 30.[1]Set ADOcn New Connection [2]New [3]ADOrs.Open strSQL [4]Not [5]Text1.SetFocus 五、编写程序题（共15分） 31.参考答案： Private Sub Command1_Click() Dim x As Integer,y As Single x=Val(Textl.Text) Select Case x Case Is >=3000 y=x￥1.1 Case Is >=2000 y=×*1.15 Case Else y=x*1.18 End Select Label3.Caption =y End Sub Private Sub Command2_Click() Unload Me End Sub 142429. (7 Al= 10 Bl= 20 A2= 20 B2= 10 四、完善程序题(共正 30. [IJ Set ADOcn = New Connection [2J New [3J ADOrs. Open strSQL [4J Not [5JText1. SetFocu 五、编写程序题{共 1. Private Sub Commandl_ClickO Dim x As Integer, y As Single x = Val(Textl. Text) Select Case x Case Is > = 3000 y=x 1.1 Case Is > = 2000 y=x 1. 15 Cas巳Else y=x 1. 18 End Select Label3. Caption = y End Sub Private Sub Command2_ClickO Unload Me End Sub 1424