Question

求助VB程序阅读题，万分感谢！

1. 阅读程序写出程序运行结果。
Private Sub Command1_Click()
Dim a,c As Integer
For a = 1 To 5
c = a + 1
Print c
Next a
End Sub
单击窗体，变量C的结果依次为：
A. 2、3、4、5、6
B. 3、4、5、6、7
C. 1、2、3、4、5
D. 0、1、2、3、4
满分：10 分
2. 阅读程序写出程序运行结果
Private Sub Form_Click()
Static Sum As Integer
For I = 1 To 100
Sum = Sum + I
Next I
Print Sum
End Sub
点击窗体两次后，变量Sum的值是：
A. 5050
B.
100
C. 101
D. 5000
满分：10 分
3. 阅读程序写出运行结果。
Private Sub Form_Click()
Static a As Integer
Dim b As Integer
a = a + 3
b = b + 4
Text1 = a
Text2 = b
End Sub
选择程序运行时连续单击三次窗体后，文本框Text1和Text2显示结果。
A. Text1显示结果为9
Text2显示结果为4
B. Text1显示结果为4
Text2显示结果为9
C. Text1显示结果为9
Text2显示结果为9
D. Text1显示结果为4
Text2显示结果为4
满分：10 分
4. 阅读程序写出程序运行结果。
Private Sub Command1_Click()
Dim A(1 To 5) As Integer
Dim b As Integer
For b = 1 To 5
A(b)=b
Next b
Text1.Text=A(b-2)
End Sub
单击Command1按钮，文本框Text1的结果是：
A. 4
B. 3
C. 2
D. 6
5. 阅读程序写出程序运行结果
Private Sub Command1_Click()
Dim a As Integer, b As Integer
Print "a="; 3
Print "b="; 4
Print "a+b="; a + b
End Sub
选择程序运行时单击命令按钮Command1后，在窗体上出现的结果。
A. a=3
b=4
a+b=0
B. a=3
b=4
a+b=7
C. a=3
b=4
a+b=34
D. a=4
b=3
a+b=0
满分：10 分
6. 阅读程序写出运行结果。
Private Sub Form_Click()
Static Sum As Integer
I = 1
While I <= 10
Sum = Sum + I
I = I + 1
Wend
Print Sum
End Sub
选择单击窗体时输出结果为:
A. 55
B. 50
C. 10
D. 15
满分：10 分
7. 阅读程序写出运行结果。
Sub Change(ByVal x As Integer, ByVal y As Integer)
Dim t As Integer
t = x
x = y
y = t
Print x, y
End Sub
Private Sub Form_Click()
Dim a As Integer, b As Integer
a = 3: b = 4
Change a, b
Print a, b
End Sub
选择单击窗体时输出结果为:
A.
4 3
3 4
B. 4 4
3 3
C. 3 3
4 4
D. 3 4
4 3
满分：10 分
8. 阅读程序写出程序运行结果。
Private Sub Command1_Click()
Dim a,c As Integer
For a = 1 To 5
c = a + 1
Print c
Next a
End Sub
单击窗体，变量C的结果依次为：
A. 2、3、4、5、6
B. 3、4、5、6、7
C. 1、2、3、4、5
D. 0、1、2、3、4
满分：10 分

Answer 1

1. A

2. A答案的两倍

3. A

4. B

5. A

6. A

7. D

8. A