在窗体上有一个名称为Label1的标签和一个名称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

列表框，两个名称分别为Label1、Label2的标签(标题分别为空白和“共有文件”)。要使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化，并且在标签Label1中显示当前文件夹中文件的数量。下列能够正确实现上述功能的程序是（）。

A.Print Cb1．Selected

B.Print Cb1．List(Cb1．Listlndex)

C.Print Cb1．Selected．Text

D.Print Cb1．List(Listlndex)

rivate 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

窗体上有一个名称为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．单击标签，在标签中显示一串文字

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

个表项时，在Label1中相应地显示该表项，应使用的程序代码为

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

A.1

B.5

C.27

D.45

在考生文件夹下有一个工程文件sjt3．vbp，运行情况如图4所示。程序的功能是计算表达式的值：z=(x-2)!+(x-3)!+(x-4)!+…+(x-N)!其中的N和x值通过键盘分别输入到两个文本框Text1、Text2中。单击名称为Commandl、标题为“计算”的命令按钮，则计算表达式的值，并将计算结果显示在名称为Label1的标签中。 在窗体文件中已经给出了全部控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的？改为正确内容。 要求：程序调试通过后，必须按照如图4所示输入N=5，x=12，然后计算Z的值，并将计算结果显示在标签Label1中，否则没有成绩。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件sjt4．vbp。窗体上有名称为Label1的标签和名称为Timer1 的计时器控件。该程序的功能是在名称为Label1的标签中循环显示不同的字符串。程序开始运行，在标签中显示“第一项”(如图5所示)，且每隔1秒钟依次显示“第二项”、“第三项”、“第四项”，如此循环。在给出的窗体艾件中已经有了全部控件和程序，但程序不完整，要求去掉程序中的注释符，把程序中的？改为正确的内容。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。

显示在label1标签中，单击鼠标右键则停止实时显示，并将标签中内容清除，下面的程序可实现这一功能，请填空。

Dim down as Boolean

Private Sub form_mousedown(button as integer,shIft as integer,X as single, Y as single)

Select Case【8】

Case 1

Down=true

Case2

Down=false

End select

End Sub

Private Sub form. mousemove(button as integer,shIft as integer,X as single, Y as single)

If 【9】then

【10】=”X-” & X & ” Y-” & Y

Else

Label1.caption=””

End If

End Sub