编写如下事件过程:程序运行后,单击窗体,则窗体上显示的内容是（）

A．:2

B．:4

C．:5

D．:显示出错信息

A．:2

B．:10

C．:12

D．:30

窗体上有一个名称为Commandl的命令按钮，编写如下事件过程：

运行程序，单击命令按钮时，窗体上显示的是

A.10

B.l5

C.16

D.21

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

程序运行后单击命令按钮，如果输入4，则在窗体上显示的内容是（ ）。

A)5

B)6

C)9

D)10

在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程：程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。

A. 机床

B. 车床

C. 钻床

D. 轴承

A．:1

B．:5

C．:32

D．:40

在Form1的窗体上绘制一个图片框，其名称为Pic1。编写适当的事件过程，使程序运行后，若单击窗体，则从图片框的(250，500)位置处开始显示Visual Basic。程序运行情况如下图所示。

注意：

程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为 execise18.vbp，窗体文件名为execise18.frm。

编写如下事件过程： Option Base 1 Private Sub Form Click() Dim x1()As Integer Dim i As Integer Dim s As Integer ReDim x1(3) For i = 1 To UBound(x1) x1(i)=i + 1 Next i Call sub1(x1) For i = 1 To UBound(x1) s = s + x1(i) Next i Print s End Sub Private Sub sub1(n()As Integer) Dim i As Integer ReDim Preserve n(5) For i = 3 To 5 n(i)=n(i-1)*2 Next i End Sub 程序运行后，单击窗体，则窗体上显示的内容是

A．6

B．12

C．24

D．47

在窗体上画一个名称为Label1的标签，然后编写如下事件过程：

Private Sub Form_Click（）

Dim arr（10, 10） As Integer

Dim i As Integer, j As Integer

For i = 2 To 4

For j = 2 To 4

arr（i, j） = i * j

Next j

Next i

Label1.Caption = Str（arr（2, 2） + arr（3, 3））

End Sub

程序运行后，单击窗体，在标签中显示的内容是（ ）。

A．12

B．13

C．14

D．15

在窗体上面一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Integer, s As Integer a=8 s=1 Do s=s+a a=a-1 Loop While a＜=0 Print s; a End Sub 程序运行后，单击命令按钮．则窗体上显示的内容是______。

A．7 9

B．34 0

C．9 7

D．死循环