窗体上有1个名称为Label1的标签；1个名称为List1，且含有若干表项的列表框。为了使得单击List1中某

窗体上有一个名称为Label1的标签和一个名称为Command1的命令按钮。命令按钮的单击事件过程如下：

Private Sub Command1 Click（）

XzInputBox("输入X："，，0)

y=InputBox("输入y："，，0)

Label1．Caption=x+y

End Sub

运行程序，单击命令按钮，在输入对话框中分别输入2、3，运行的结果是（）。

A.程序运行有错误，数据类型不匹配

B.程序运行有错误，InputBox函数的格式不对

C.在Label1中显示5

D.在Label1中显示23

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

下图所示的窗体上有一个命令按钮(名称为ciotamand1)和一个选项组(名称为Frame1)，选项组上显示“Frame1”文本的标签控件名称为Label1，若将选项组上显示文本“Frame1”改为汉字“性别”，应使用的语句是()。

设在窗体上有1个名称为Combo1的组合框,含有5个项目,要删除最后一项,正确的语句是（）。

A．Combo1.RemoveItem Combo1.Text

B． Combo1.RemoveItem4

C． Combo1.RemoveItem Combo1.ListCount

D． Combo1.RemoveItem5

窗体上有1个名称为Command1的命令按钮，事件过程如下：

运行程序，并在三次单击命令按钮时，分别输入正整数100、90和60，则窗体上显示的内容为

A.000

B.0060

C.0900

D.100060

窗体上有1个名称为CD1的通用对话框，1个名称为Commandl的命令按钮。命令按钮的单击事件过程如下： Private Sub Commandl_Click() CD1.FileName="" CD1.Filter="AllFiles|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt" CD1.FilterIndex=2 CD1.Action=1 End Sub 关于以上代码，错误的叙述是()。

A．执行以上事件过程，通用对话框被设置为“打开”文件对话框

B．通用对话框的初始路径为当前路径

C．通用对话框的默认文件类型为*.Txt

D．以上代码不对文件执行读写操作

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

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

窗体上有一个名称为Picturel的图片框控件，一个名称为Label1的标签控件，如下图所示。

现有如下程序： Public Sub display (x As Control) If TypeOf x Is Label Then x.Caption="计算机等级考试" Else x.Picture=LoadPicture("piC.jpg") End If End Sub Private Sub Labell_Click() Call display(Labell) End Sub Private Sub Picture1_Click() Call display(Picture1) End Sub 对以上程序，下列叙述中错误的是()。

A．程序运行时会出错

B．单击图片框，在图片框中显示一幅图片

C．过程中的x是控件变量

D．单击标签，在标签中显示一串文字

A.1

B.5

C.27

D.45

在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下事件过程： Private Sub Command1_Click() s=0 For i=1 To 15 x=2*i-1 if x Mod 3=0 Then s=s+1 Next i LabeCaption=s End Sub 程序运行后，单击命令按钮，则标签中显示的内容是______。

A．1

B．5

C．27

D．45

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