| 1. 例1. 在窗体中添加一个命令按钮，然后编写如下程序:
Private Sub Command1 - Click（）
Dim I
For I=1to13Step2
I=I+1
Print I;
Next I
End Sub
单击命令按钮，程序的执行结果为 （ ）
A.24681012 B.135791113
C.258 D.2581114
2. 执行下面的程序段后，x的值为 （ ）
x=5
For I=1to20Step2
x=x+I\5
Next I
A.21 B.22 C.23 D.24
3. 执行下列程序:
Private Sub Command1 - Click（）
For j=1to4
Print Tab（2*j+1）;12*j
Next j
End Sub
单击命令按钮，程序执行结果为 （ ）
A.12 B.12 C.12 D.12243648
24 24 24
36 36 36
48 48 48
4.在窗体中画一个命令按钮，然后编写如下的事件过程:
Private Sub Command1 - Click（）
For I=1to4
x=4
For j=1to3
x=3
For k=1to2
x=x+6
Next k
Next j
Next I
Print x
End Sub
程序运行后，结果为 （ ）
A.7 B.15 C.157 D.538
5. 在文本框上画上两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name属性为Command1），然后编写如下的事件过程:
Private Sub Command1 - Click（）
x=0
Do While x<50
x=（x+2）*（x+3）
n=n+1
Loop
Text1.Text=Str（n）
Text2.text=Str（x）
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为 （ ）
A.1和0 B.2和72 C.3和50 D.4和168
6. 阅读下面的程序段:
for I=1to3
for j=1to I
for k=j to3
a=a+1
next k
next j
next I
执行上面的三重循环后，a的值为 （ ）
A.3 B.9 C.14 D.21
7. 设a=6，则执行x=IIF（a>5，-1，0）后，x的值是 （ ）
A.5 B.6 C.0 D.-1
8. 在窗体上画一个命令按钮，然后编写如下的事件过程:
Private Sub Command1 - Click（）
x=0
Do Until x=-1
a=InputBox（″请输入A的值″）
a=Val（a）
b=InputBox（″请输入B的值″）
b=Val（b）
x=InputBox（″请输入X的值″）
x=Val（x）
a=a+b+x
Loop
Print a
End Sub
程序运行后，单击命令铵扭，一次在输入对话框中输入5、4、3、2、1、-1，则输出结果为（ ）
A.2 B.3 C.14 D.15
9. 在窗体中添加命令按钮，编写如下程序:
Private Sub Command1 - Click（）
a=0
For m=1to10
a=a+1
b=0
For j=1to10
a=a+1
b=b+2
Next j
Next m
Print a，b
End Sub
单击命令按钮，程序的执行结果为 （ ）
A.10，20 B.20，110 C.110，20 D.200，110
|