x=2 y=9 2.
242
3． 25
4．
A1=22 B1=33 A2=33 B2=22 5.
4 14 6． 22
7． 11 14 17 20 8.
10 9 9． 29
10． x= 5 x= 9
四、完善程序题 1．
[1]List1.AddItem Text1.Text [2]Else
[3]List1.RemoveItem List1.ListIndex [4] \修改\ [5] List1.Text [6] False
.. ..
[7] \修改确认\[8] \修改\
2．
[1]学生
[2]New Connection [3] ADOcn.Open strDB [4] New Recordset
[5] ActiveConnection [6] ADOrs.EOF [7] strSQL 3．
[1] Set ADOcn = New Connection [2] 学生.MDB [3] New
[4] ADOrs.Open strSQL [5] Not [6] Else
[7]Text1.SetFocus [8] UnLoad Me
五、编写程序题
1．参考答案：
Private Sub Command1_Click() Dim x As Integer, y As Single x = Val(Text1.Text) Select Case x Case Is >= 800 y = x * 1.2
Case Is >= 600 y = x * 1.15 Case Else y = x * 1.1 End Select
Label1.Caption = y End Sub
Private Sub Command2_Click() Unload Me
End Sub
.. ..
2．参考答案：
Private Sub Command1_Click() Dim x As Single, y As Single x = Val(Text1.Text) If x < 100 Then y = x Else
If x < 200 Then y = 9.5 * x Else
If x < 300 Then y = 0.9 * x Else
If x < 500 Then y = 0.8 * x Else
y = 0.7 * x End If End If End If End If
Text2.Text = y End Sub
3．参考答案：
Private Sub Command1_Click() Dim x As Integer, tax As Single x = Val(Text1.Text) If x < 1200 Then tax = x * 0.03 Else
If x <= 4000 Then
tax = (x - 1000) * 0.15 Else
If x <= 5000 Then
tax = (x - 1000) * 0.15 + (x - 4000) * 0.05 Else
tax = x * 0.25 End If End If End If
.. ..
Text2.Text = tax
End Sub欢迎您的光临，Word文档下载后可修改编辑.双击可删除页眉页脚.谢谢！你的意见是我进步的动力，希望您提出您宝贵的意见！让我们共同学习共同进步！学无止境.更上一层楼。
.. ..
相关推荐：
loading