（25 ）在窗体上面画一个命令按钮，名称为 Command1 ，然后编写如下代码：Option Base 0Private Sub

在窗体上面画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写如下代码： Sub S(X As Integer，y As Integer) Static z As Integer y=x*x+Z z=y End Sub Private Sub Command1 Click（） Dim i As Integer．z As Integer m=0 z=0 For i=1 T0 3 S i，Z m=m+z Next i Label1．Caption=Str(m) 程序运行后，单击命令按钮，在标签中显示的内容是（）。

A.50

B.20

C.14

D.7

在窗体上面画一个命令按钮和一个标签，其名称分别为Command1和Label1，然后编写如下代码：

Sub S(X As Integer，y As Integer)

Static z As Integer

y=x*x+Z

z=y

End Sub

Private Sub Command1 Click（）

Dim i As Integer．z As Integer

m=0

z=0

For i=1 T0 3

S i，Z

m=m+z

Next i

Label1．Caption=Str(m)

程序运行后，单击命令按钮，在标签中显示的内容是（）。

A.50

B.20

C.14

D.7

过程：

Private Sub Commandl_Click（）

Counter=0

For i=1 To 4

For j=6 To 1 Step -2

Counter=Counter+1

Next j

Next i

Label1.Caption=Str（Counter）

End Sub

程序运行后，单击命令按钮，标签中显示的内容是（）。 A．11

B．12

C．16

D．20

在窗体上面画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a＄="321"：b＄="abc" For j=l To 5 Print Mid＄(a＄，6-j，1)+Mid＄(b＄，j，1)； Next j End Sub 程序运行后，输出的结果是

A．alb2c3

B．ablc23

C．clb2a3

D．a12bcl

在窗体上面画一个命令按钮，然后编写如下事件过程，运行程序，单击命令按钮，其输出结果是______。 Option Base 1 Private Sub Command1_Click() Dim a a=Array(1，2，3，4) j=1 For i=4 To 1 Step-1 s=s+a(i)*j j=j*10 Next i Print s End Sub

A．4321

B．12

C．34

D．1234

在窗体上面画一个命令按钮，然后编写如下事件过程______ 。 Option Base 1 Private Sub Command1_Click() Dim a a=Array(1，2，3，4) j=1 For i=4 TO 1 Step -1 s=s+ a(i)*j j=j*10 Next i Print s End Sub运行上面的程序，单击命令按钮，其输出结果是______ 。

A．4321

B．12

C．34

D．1234

后编写如下事件过程：

运行上面的程序，单击命令按钮．其输出结果是

A．8 9

B．8 18

C．64 9

D．64 18

A.200

B.300

C.500

D.700

标题分别为“开始”和“停止”的命令按钮，然后画一个名称为Timerl的计时器控件，并把其Interval属性设置为500，如下图所示。编写如下程序： Private Sub Form_Load() Timer1.Ena bled=False End Sub Private Sub Commandl_ChCk() Timer1.Ena

A．标签的移动方向为自右向左

B．单击“停止”按钮后再单击“开始”按钮，标签从停止的位置继续移动

C．当标签全部移出窗体后，将从窗体的另一端出现，重新移动

D．标签按指定的时间间隔移动

在窗体中画一个命令按钮，然后编写以下事件过程： Private Sub Command1＿Click() For X＝5 To 5 Step-6 Next X Print X End Sub 程序运行后，输出的结果是

A．2．2

B．2．5

C．2．9

D．-1