在窗体上画一个名称为Labe11、标题为“VisualBasic考试”的标签，两个名称分别为Command1和Command2、

击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是()。

在窗体上画一个文本框(名称为Text1)和一个标签(名称为Labe11)，程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。下列可以实现上述操作的事件过程是（）。

A.Private Sub Text1 Change（）

Labe11．Caption=Str(Len(Text1．Text))

End Sub

B.Private Sub Text1 Click（）

Labe11．Caption=str(Len(Text1．Text))

End Sub

C.Private Sub Text1 Change（）

Labe11．Caption=Text1．Text

End Sub

D.Private Sub Labe1 1_Change（）

Labe11．Caption=Str(Len(Text1．Text))

End Sub

列表框中的某个城市名时，该城市名从列表框中消失，并在标签中显示出来。下列能正确实现上述操作的程序是()。

序段：

Private x AS Integer

Private Sub Command1_Click()

Static y AS Integer

Dim z As Integer

n=10

z=n+z

y=y+z

X=X+Z

Labell．Caption=x

Label2．Caption=y

Label3．Capt&on=z

End Sub

运行程序，连续3次单击命令按钮后，则3个标签中显示的内容是【 】。

程序代码： Private X As Integer Private Sub Commandl_Click() X=5:Y=3 Callproc(X,Y) Labe11.Caption=X Label2.Caption=Y End Sub Private Sub proc(ByVala As Integer,ByValb As In

A．5和3

B．25和3

C．25和6

D．5和6

m"的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如下图所示。以下是实现上述功能的程序，请填空。

Pfivate Sub Form_Load()

Fori=1 To 100

If iMod7=

程序段： Private x As Integer Private Sub Commandl Click() Static y As Integer Dim z As Integer n=10 z=n +z y=y +z X=X+Z Labe11．Caption=x Labe12．Caption=y Labe13．Caption=z End Sub 运行程序，连续3次单击命令按钮后，则3个标签中显示的内容是()。

A．10 10 10

B．30 30 30

C．30 30 10

D．10 30 30

程序代码： Private X As Integer Private Sub Command1_C1ick() X=5：Y=3 Call proc(X，Y) LabeCaption=X LabeCaption=Y End Sub Private Sub proc(ByVal a As Integer，ByVal b As Integer) X=a*a Y=b+b End Sub 程序运行后，单击命令按钮，则两个标签中显示的内容分别是______。

A．5和3

B．25和3

C．25和6

D．5和6

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

如下代码： Private x As Integer Private Sub Command1_Click() State y As Integer Dim z As Integer n = 10 z = n+z y = y+z x = x+z Labe11.Caption = x Labe11.Caption = y Labe11.Caption = z End Sub程序运行后，连续3次单击命令按钮，则3个标签框中显示的内容分别是______。

A．10 10 10

B．30 30 30

C．30 30 10

D．10 30 30