（10 ） 在窗体上画一个名称为 Combo1 的组合框 ， 然后画两个名称分别为 Label1 、 Label2 ， 标题

在窗体上画一个命令按钮(名称为Command1)和一个文本框(名称为Text1)，然后编写如下事件过程：

Private Sub Command1_Click()

x＝Val(Text1.Text)

Select Case x

Case 1,3

y＝x*x

Case IS＞＝10,IS＜＝-10

y＝x

Case-10 To 10

y＝-x

End Select

End Sub

程序运行后，在文本框中输入3，然后单击命令按钮，则y的值变为______。

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

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

A)5

B)6

C)9

D)10

在窗体上画一个名称为Textl的文本框和一个名称为Commandl的命令按钮，然后编写如下事件过程：

Private Sub Commandl_Click()

Dim i As Integer，n As Integer

For i=0 T0 50

i=i+3

n=n+1

If i＞10 Then Exit For

Next

Textl．Text=Str(n)

End Sub

程序运行后，单击命令按钮，在文本框中显示的值是

A．2

B．3

C．4

D．5

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

A. 5

B. 6

C. 9

D. 10

在窗体上画一个名称为Label1的标签，然后编写如下事件过程： Private Sub Form_Click() Dim arr(10, 10)As Integer Dimi 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

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编如下事件过程：

Private Sub Command1_Click()

Dim i As Integer, n As Integer

n=0

For i=0 To 50

i=i+3

n=n+1

If i＞10 Then Exit For

Next i

Text1.Text=Str(n)

End Sub

程序运行后，单击命令按钮，在文本框中显示的值是______。

在窗体上画一个名称为Commandl的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() y = 8 Print fun1(1 + fun1(fun1(fun1(y)))*10) End Sub Private FLinctiOn fUnl(A)funl(A)= 1 + a End Function 程序运行后，单击命令按钮，则窗体上显示的内容是

A．112

B．2

C．909090

D．1001

在窗体上画一个名称为Labell的标签，然后编写如下事件过程： Option Base 1 Private Sub Form. Click() Dim a(10)As Integer For k=1 To 10 a(k)=k^2 Next k Label1.Caption=a(k) End Sub 程序运行后，单击窗体，在标签中显示的内容是 ______。

A．100

B．10

C．121

D．出错信息

在窗体上画一个名称为Labell的标签，然后编写如下事件过程。 Private Sub Form_Click() Dim arr(10, I0) 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 Next Labell. Caption = Str(arr(2,2) + arr(3,3) ) End Sub 程序运行后，单击窗体，在标签中显示的内容是

A．12

B．13

C．14

D．15

在窗体上画一个名称为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

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

Private Sub Com1_Click()

n=10

q=1

sum=0

For i=1 To n

Next

Print sum

End Sub

该事件过程的功能是计算s=1+1/2!+1/3!+…+1/n!的值。请填空。