是青少年社会化的重要阵地，正确的教育方式十分重要。

在窗体上画一个命令按钮(名称为 Commandl)，然后编写如下事件过程： Private Sub Commandl_Click() Static a As Integer a＝a+1 End Sub 运行程序，第3次单击命令按钮后，变量a的值为()

A．0

B．1

C．2

D．3

在窗体上画一个命令按钮(其Name属性为Commandl)，然后编写如下代码：

Private Sub Commandl_Click()

Dima(5)

Fori=0 To 4

A(i)=i+1

t=i+1

If t=3 Then

Print a(i)

A(t-1)=a(i-2)

Else

A(t)=a(i)

End If

Ifi=3 Thena(i+1)=a(t-4)

A(4)=1

Printa

在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() a：InputBox("Enter the First Integer") b：InputBox("Enter the Second Inteeer") Print b+a End Sub 程序运行后，单击命令按钮，先后在两个输入对话框中分别输入456和123，则输出结果是 ()

A．579

B．123

C．456

D．123456

在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程： Private Sub Commandl_Click() a$="software and hardware" b$=Right(a$,8) c$=Mid(a$,1,8) MsgBoxa$,,b$,c$,1 End Sub 运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是______。

A． software and hardware

B．software

C．hardware

D．1

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：

Private Sub Commandl_Click()

Static X As Integer

Static Y As Integer

Cls

Y=1

Y=Y+5

X=5+X

Print X, Y

End Sub

程序运行时，3次单击命令按钮Command1后，窗体上显示的结果为【 】。

在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click() Dim a() a=Array(1，3，5，7) s=0 For i=1 To 3 S=S*10+a(i) Next i Print s End Sub 程序运行后，输出结果为()。

A．135

B．357

C．531

D．753

在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程： Private Sub Commandl_Click() Dim a() a=Array(“机床”，“车床”，“钻床”，“轴承”) Print a(2) End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是()。

A．机床

B．车床

C．钻床

D．轴承

在窗体上画一个命令按钮,名称为Commandl。然后编写如下程序:

Private Sub Commandl_Click()

For I=1 T0 2

For J=1 To I

Print String(I,″Hello″);

Next J

Print

Next I

End Sub

程序运行后,如果单击命令按钮,则在窗体上显示的内容是

A．H HH HH

B．H HHHH

C．HHHHH

D．H HH HHHH

在窗体上画一个命令按钮Commandl,然后编写下列代码： Private Sub Commandl_Click() Dim Arrl(10)As Integer,Arr2(10)As Integer n=3 For i=1 To 5 Arrl(i)=i Arr2(n)=2*n+1 Next i Print Arr2(n)；Arrl(n) End Sub 运行程序后，单击命令按钮，输出结果是A.11 3 B.3 11 C.13 3 D.3 13