以下过程是标签Label1的（）事件。 Prviate Sub

（ 20 ）在窗体上画一个命令按钮和两个标签，其名称分别为 Command1 、 Label1 和 Label2 ，然后编写如下事件过程：

Private Sub Command1_Click()

a = 0

For i = 1 To 10

a = a + 1

b = 0

For j = 1 To 10

a = a + 1

b = b + 2

Next j

Next i

Label1.Caption = Str(a ）

Label2.Caption = Str(b ）

End Sub

程序运行后，单击命令按钮，在标签 Label1 和 Label2 中显示的内容分别是

A ） 10 和 20

B ） 20 和 110

C ） 200 和 110

D ） 11 0 和 20

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

在窗体上画一个文本框（其名称为 Text1）和一个标签（其名称为 Label1），程序运行后，如果在文本框中输入指定的信息，则立即在标签中显示相同的内容，以下可以实现上述操作的事件过程是（ ）。

A．Private Sub Text1_Click（）

Label1.Caption=Textl.Text

End Sub

B．Private Sub Text1_Change（）

Label1.Caption=Text1.Text

End Sub

C．Private Sub Label1_Ctrange（）

Label1.Caption=Text1.Text

End Sub

D．Private Sub Label1_Click（）

Label1.Caption=Text1.Text

End Sub

在窗体上画两个滚动条，名称分别为Hscroll1、Hscroll2：六个标签，名称分别为Label1、Label2、 Latel3、Label4、Label5、Label6，其中标签Label4～Label6分别显示“A”、“B”、“A*B”等文字信息，标签Label1、Label2分别显示其右侧的滚动条的数值，Label3显示A*B的计算结果。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮“计算”时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现上述功能的事件过程是 ______。

A．Private Sub Command1_Click() Label3.Caption=Str(Val(Label1.Caption)*Val(Label2.Caption)) End Sub

B．Private Sub Command1_Click() Label3.Caption=HScroll1.Value*HScroll2.Value End Sub

C．Private Sub Command1_Click() Label3.Caption=HScrolll*HScroll2 End Sub

D．Private Sub Command1_Click() Label3.Caption=HScroll1.Text*HScroll2.Text End Sub

窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Label1)。要求程序运行后，如果在文本框中输入字符，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是： ______。

A．Private Sub Text1_Change() Label1.Caption=Text1.Text End Sub

B．Private Sub Text1_Click() Label1.Caption=Text1.Text End Sub

C．Private Sub Label1_Change() Label1.Caption=Text1.Text End Sub

D．Private Sub Labell_Click() Label1.Caption=Text1.Text End SUb

在窗体上画一个名称为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)和一个标签(名称为Label1)，程序运行后如果在文本框中输入文本，则标签中立即显示相同的内容。以下可以实现上述操作的事件过程是( )。

A．Private Sub Text1_Change() Label1．Caption=Text1．Text End Sub

B．Private Sub Label 1_Change() Label1．Caption=Text1．Text End Sub

C．Private Sub Text1_Click() Label1．Caption=Text1．text End Sub

D．Private Sub Label1_Click( ) Label1．Caption=Text1．Text End sot

在窗体上面画一个命令按钮和一个标签，其名称分别为 Command1和 Label1，然后编写如下事件过程：

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

在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写如下程序： Private Sub func(L As Label,ByVal a As Integer) L.Caption="1234" a=a*a End Sub Private Sub Form_Load() Label1.Caption="ABCD" Label2.Caption=10 End Sub Private Sub Command1_Click() a=Val(Label2.Caption) Call func(Label1，A)Label2.Caption=a End Sub 程序运行后，单击命令按钮，在两个标签Label1和Label2中显示的内容分别是： ______。

A．ABCD和10

B．1234和100

C．ABCD和100

D．1234和10

在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和 Command1，然后编写如下两个事件过程： Private Sub Command1_Click() strText=InputBox("请输入") Text1.Text=strText End Sub Private Sub Text1_Change() Label1.Caption=Right(Trim(Text1.Text)，4) End Sub 程序运行后，如果在对话框中输入abcdefgh，则在标签中显示的内容是 ______。

A．空

B．abcdef

C．abcd

D．efgh