Question

vb题目望懂的人帮我解答，明天就要交了望速速回复谢谢~~~~~~！！！！！！！！

三、填空题（本大题共10空，每空2分，共20分）
1.在Visual Basic中，由系统事先设定的，能被对象识别和响应的动作称为 [1] 。
2.设a = 2，b = 5，c = -2，d = 100，则a > b >= c And a < b >= d的值为 [2] 。
3.关闭正在运行的VB窗体将自动触发的事件是 [3] 。
4.在 VB中，数组的下标默认从0开始，若希望数组的下标默认从1开始，应在模块的声明部分使用 [4] 语句。
5.为使某窗体中的命令按钮“确定(E)”具有如下特性：按“Alt＋E”键或按“Enter” 键，均可代替用鼠标单击该命令按钮的操作，则应设置该命令按钮的Caption属性值为 [5] ，并且设置其 [6] 属性值为 [7] 。
6.将文本框的ScrollBars的属性设置为2（有垂直滚动条），但没有出现垂直滚动条，这是因为没有将 [8] 属性设置为True。
7.在窗体上已建立多个控件，如Text1、Label1、Command1，若要使程序一运行焦点就定位在Command1控件上，应将Command1控件的 [9] 属性设置为 [10] 。
四、程序阅读题（本大题共4小题，每小题5分，共20分）
1.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
m = 1
n = 1
Do
m = m * n
n = n + 1
Loop Until n > 4
Print m
End Sub
程序运行后，单击Command1，写出在窗体上显示的内容。
2.在窗体上画一个名称为Command1的命令按钮、一个名称为Label1的列表框，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a As Integer
a = Val(InputBox("请输入一个数"))
Select Case a Mod 5
Case Is < 2
w = a + 10
Case Is < 4
w = a * 2
Case Else
w = a - 10
End Select
Label1.Caption = Str(w)
End Sub
程序运行后，单击Command1，在弹出的对话框中输入数据14，写出在标签Label1中显示的内容。
3.在窗体上画一个名称为Command1的命令按钮、一个名称为List1的列表框，一个名称为Text1的文本框（文本框的内容为空白），然后编写如下事件过程：
Private Sub Text1_Change()
List1.AddItem Text1.Text
End Sub
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To 1
List1.RemoveItem 0
Next i
End Sub
程序运行后，在文本框Text1中输入ABCD，再单击Command1，按从上往下的顺序写出在列表框中包含的所有选项的内容。
4.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
d = 0
c = 10
x = Array(10, 12, 21, 32, 24)
For i = 0 To 4
If x(i) > c Then
d = d + x(i)
c = x(i)
Else
d = d - c
End If
Next i
Print d
End Sub
程序运行后，单击Command1，写出在窗体上显示的内容。
五、程序设计题（本大题共2小题，每小题10分，共20分）
1.某百货公司为了促销，采用购物打折扣的优惠办法：每位顾客一次购物 ① 在1000元以上者，按九五折优惠；② 在2000元以上者，按九折优惠；③ 在3000元以上者，按八五折优惠。在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1和Text2的文本框。程序运行后，在文本框Text1中输入顾客的购物额x元，然后单击命令按钮Command1，则在文本框Text2中显示出顾客的应付款y元。试编写程序实现以上功能。
2.小红今年12岁，她的父亲比她大30岁，试编写程序计算出再经过多少年后她父亲的年龄刚好比她大一倍。在窗体上画一个名称为Command1的命令按钮和一个名称为Label1的标签。程序运行后，单击命令按钮Command1，则在标签Label1中显示出计算结果。

Answer 1

1.方法
2.false
3.unload
4.option base 1
5.确定(&E)
6.7.不知道..
8.multiline
9.Default
10. true

1.24
2.4
3.a
ab
abc
abcd
4.23

Private Sub Command1_Click()
Dim a As Integer
a = Text1.Text
Select Case a
Case Is > 3000
b = a * 0.85
Case Is > 2000
b = a * 0.9
Case Is > 1000
b = a * 0.95
End Select
Text2 = b
End Sub

Dim a, b
Private Sub Command1_Click()
j = 0
a = 12
b = 42
For i = 1 To 100
If a <> b / 2 Then
j = j + 1
a = a + 1
b = b + 1
Else
Label1.Caption = j
End If
Next i
End Sub