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

[单选题]窗体上有一个名称为Picture1的图片框控件。一个名称为Label1的标签控件，如图所示。现有如下程序：对以上程序，下列叙述中错误的是（　　）。A.

[单选题]在窗体上有一个文本框控件,名称为TextTime;一个计时器控件,名称为Timerl。要求每一秒在文本框中显示一次当前的时间。程序为:Private Sub Timer1_ ________TxtTime.text=TimeE．nd Sub在下划线上应填入的内容是A．EnabledB．VisibleC．IntervalD．Time

[单选题]在窗体上有一个文本框控件，名称为TxtTime；一个计时器控件，名称为Timer1，要求每一秒钟在文本框中显示一次当前的时间。程序为： Private Sub Timerl ______ TxtTime.text=Time End Sub 在下划线上应填入的内容是A．EnabledB．VisibleC．IntervalD．Timer

[单选题]在窗体上有一个文本框控件，名称为TextTime，一个计时器控件，名称为Timer1。要求每一秒在文本框中显示一次当前的时间。 Private Sub Timer1______ TextTime.Text=Time End Sub 在横线上应填入的内容是( )。A．EnabledB．VisibleC．Timer()D．Interval

[单选题]在窗体上有一个文本框控件，名称为TextTime；一个计时器控件，名称为Timed。要求每一秒在文本框中显示一次当前的时间。程序为： Private Sub Timerl_ ______ TextTime.text=Time End Sub 在下划线上应填入的内容是( )。A．Ena bledB．ViSibleC．IntervalD．Timer

[单选题]在窗体上有一个文本框控件,名称为TextTime;一个计时器控件,名称为Timer1。要求每一秒在文本框中显示一次当前的时间。程序为:Private Sub Timer1_ _________( )TxtTime.text=TimeE．nd Sub在下划线上应填入的内容是A．EnabledB．VisibleC．IntervalD．Timer

[单选题]在窗体上有一个文本框控件，名称为TxtTime，一个计时器控件，名称为Timerl，要求每一秒钟在文本框中显示一次当前的时间。程序为：Private Sub Timer1_（）【】Txt Time.text=TimeEnd Sub在【】中填入合适的事件（）A . EnabledB . VisibleC . IntervalD . Timer

[单选题]在窗体上有一个文本框控件，名称为TxtTime，一个计时器控件，名称为Timer1，要求每一秒钟在文本框中显示一次当前的时间。程序为： Privme SubTimer1_ ______( ) TxtTime.text=Time End Sub 在下划线上应填入的内容是A．EnabledB．VisibleC．IntervalD．Timer

[单选题]在窗体上有一个文本框控件，名称为TxtTime一个计时器控件，名称为Timer1，要求每1秒钟在文本框中显示一次当前的时间，程序为： Private Sub Timer1 ______() TxtTime. text=Time End Sub 在下划线上应填入的内容是 ______。A．EnabledB．VisibleC．IntervalD．Timer

[试题]在窗体上有一个名称为Label1的标签和一个名称List1的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签Labe1中显示所选中的项目，如图所示。请在空白处填入适当的内容，将程序补充完整。Private Sub Form_Load（）List1.AddItem "北京"List1.AddItem "上海"List1.AddItem "河北"E．nd SubPrivate Sub List1 (9) （）Labe1.Caption= (10)E．nd S