针对本案例制定的咨询方案应包括()。

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

A．0

B．1

C．2

D．3

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

在窗体上画一个名称为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后，窗体上显示的结果为【 】。

在窗体上画一个命令按钮,名称为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() 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

在窗体上画一个命令按钮，然后编写如下代码：

Private Sub Commandl_Click()

Dim M(10) As Integer

For k=1 To 10

M(k)=12-k

Next k

x=6

Msgbox M(2+M(x))

End Sub

程序运行后，单击命令按钮，消息框显示的是______。

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

Dimi As Integer,j As Integer

Dima(10,10)As Integer

Fori=1 To 3

Forj=1 To 3

a(i，j)=(i-1)*3+j

Printa(i，j)；

Nextj

Print

Nexti

End Sub