在窗体上面画一个命令按钮，然后编写如下事件过程______ 。Option Base 1Private Sub Command1_Cli

在窗体上面画一个命令按钮，然后编写如下事件过程： 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

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

Option Base 0

Private Sub Command1_Click()

Dim A1(4) As Integer,A2(4) As Integer

For k=0 To 2

A1(k+1)=InputBox(“ 请输入一个整数 ” )

A2(3-k)=A1(k+1)

Next k

Print A2(k)

End Sub

程序运行后，单击命令按钮，在输入对话框中依次输入 2 、 4 、 6 ，则输出结果为

A ） 0

B ） 1

C ） 2

D ） 3

在窗体上面画一个命令按钮和一个标签，其名称分别为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() Dim a(5)As String For i=1 To 5 a(I)=Chr(Asc("A")+(i-1)) Next i For Each b In a Print b； Next End Sub 程序运行后，单击命令按钮，输出结果是______。

A．ABCDE

B．1 2 3 4 5

C．abcde

D．出错信息

在窗体画一个命令按钮，然后编写如下事件过程： Private Sub Commandl Click() Dim a(5)As String For i=1 To 5 a(i)=Chr(Asc("A")+(i-1)) Next i For Each b In a Print b; Next End Sub 程序运行后，单击命令按钮，输出结果是______。

A． ABCDE

B．1 2 3 4 5

C．abcde

D．出错信息

在窗体上画一个通用对话框，其名称为CommonDialogl，然后画一个命令按钮，并编写如下事件过程： Private Sub Commandl_click() CommonDialogl.Friter="AllFiles(*.*)|*.*|Text Files"&_ "(*.txt)|*.txt|Executable Files(*.exe)|*.exe" CommonDialog1.FilterIndex=3 CommonD

A．AllFries(*.*)

B．TextFiles(*.txt)

C．Executable Fries(*.exe)

D．不确定

在窗体画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() c=1234 c1=Trim(Str(c)) For i=1 To 4 Print Next End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容： 1 12 123 1234 则在下划线处应填入的内容为______。

A．Rght(c1, i)

B．Left(c1, i)

C．Mid(c1, i, 1)

D．Mid(c1, i, i)