窗体上有一个名称为Combol的组合框，其初始内容为空，有一个名称为Command1、标题为“添加项目”的命令按钮，程序运行后，如果单击命令按钮，会将给定数组中的项目添加到组合框中，如图所示，请填空。

Option Base 1

Private Sub Command1_Click()

D．im city As Variant

city=_______(”北京”，”天津”，”上海”，”武汉”，”重庆”，”西宁”)

F．or i=_______ To UBound(city)

C．ombol．AddItem_______

Next

E．nd Sub

[单选题]窗体上有一个名称为commondialog1的通用对话框，一个名称为Command1的命令按钮，并有如下事件过程：Private Sub Command1_Click()C．ommondialog1.defauhext=”doc”C．ommondialog1.filcname=”vb.txt”C．ommondialog1.filter=”Alt(*.*)”|*.*|word|*.doc|”C．ommondialog1.filerindex=1C．ommondialog1.showsaveE．nd

[试题]（ 7 ）设窗体上有一个名称为 Combol 的组合框，并有以下程序：Private Sub Combol_KeyPress(KeyAscii As Integer)If ( 9 ) =13 Then ‘ 回车符的 ASCII 码是 13F．or k=0 To Combol.ListCount-1If Combol.Text= Combol.List(k) ThenC．ombol.Text= ” ”E．xit ForE．nd IfNext kIf Combol.Text <> “” T

[单选题]（ 19 ）在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()D．im i As Integer, n As IntegerF．or i = 0 To 50i = i + 3n = n + 1If i > 10 Then Exit ForNextText1.Text = Str(n)E．nd Sub程序运行后，单击命令按钮，在文本框中显示的值是A． ） 5B． ） 4C． ）

[试题]设窗体上有一个名称为CDl的通用对话框、一个名称为Textl的文本框和一个名称为Commandl的命令按钮。程序执行时，单击Commandl按钮，则显示打开文件对话框，操作者从中选择一个文本文件，并单击对话框上的“打开”按钮后，则可打开该文字文件，并读人一行文本，显示在Textl中。下面是实现此功能的事件过程，请填空。 Private Sub Command1_Click CD1.Filter=“文本文件|*.txt|Word文档|*.doc” CDl.FilterIndex=1：CD1.Show

[主观题]窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属性为“Sum”的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。Private Sub Form_Load（）F．or i=1 To 100If i Mod 7 =0 Then________

[单选题]在窗体上有—个名为CommonDialog1的通用对话框和一个名称为Command1的命令按钮，以及其他—些控件。要求在程序运行时，单击Command1按钮，则显示打开文件对话框，并在选择或输入了—个文件名后，就可以打开该文件。以下是Command1_Click事件过程的两种算法 算法1： Private Sub Command1_Click() CommonDialog1.ShowOpen Open CommonDialog1.FileName For Input As #1 End Sub

[单选题]窗体上有一个名称为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 Pr

[单选题]窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。窗体文件的程序 如下： Private Type x a As Integer b As Integer End Type Private Sub Command1_Click() Dim y As x y.a=InputBox("") If y.a/2=y.a/2 Then y.b=y.a * y.a Else y.b=Fix(y.a/2) End If Text1.Text=y.b End Sub 对以上程序，下

[单选题]在窗体上有一个框架框(名称为Frame1)，一个计时器(名称为Timerl)，计时器的时间间隔属性Interval=100，在图片框中有一个复选按钮(名称为Check1)和一个命令按钮(名称为Command1)，用户界面如图1所示。其中，计时器有Timer1_Timer事件过程如下：Private Sub Timer1_Timer( )If Frame1.Left >= Form1.Width Then Frame1.Left = 0F．rame1.Move Frame1.Left + 5

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