1. 例1. 在窗体中添加一个命令按钮，然后编写如下程序:
Private Sub Command1 - Click（）
Dim I
For I=1to13Step2
I=I 1
rint I;
ext 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
rint Tab（2*j 1）;12*j
ext 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
ext k
ext j
ext I
rint 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 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
ext k
ext 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=I utBox（″请输入A的值″）
a=Val（a）
=I utBox（″请输入B的值″）
=Val（b）
x=I utBox（″请输入X的值″）
x=Val（x）
a=a b x
Loop
rint 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
=0
For j=1to10
a=a 1
=b 2
ext j
ext m
rint a，b
End Sub
单击命令按钮，程序的执行结果为 （ ）
A.10，20 B.20，110 C.110，20 D.200，110