题目内容
（请给出正确答案）
窗体上有一个名称为Cbl的组合框，程序运行后，为了输出选中的列表项，应使用的语句是
A．Print Cbl．Selected
B．Print Cbl．List(Cbl．ListIndex)
C．Print Cbl．Selected．Text
D．Print Cbl．List(ListIndex)
如果结果不匹配，请 联系老师 获取答案
更多“窗体上有一个名称为Cbl的组合框，程序运行后，为了输出选中的…”相关的问题
窗体上有一个名称为Cb1的组合框，程序运行后，为了输出选中的列表项，应使用的语句是（）。
A.Print Cb1．Selected
B.Print Cb1．List(Cbl．LisfIndex)
C.Print Cb1．Selected．Text
D.Print Cb1．List(ListIndex)
（7 ）设窗体上有一个名称为 Combol 的组合框，并有以下程序：
Private Sub Combol_KeyPress(KeyAscii As Integer)
If 【 9 】 =13 Then ‘ 回车符的 ASCII 码是 13
For k=0 To Combol.ListCount-1
If Combol.Text= Combol.List(k) Then
Combol.Text= ” ”
Exit For
End If
Next k
If Combol.Text ＜＞ “” Then
Combol.AddItem 【 10 】
End If
End If
End Sub
程序的功能是 ： 在组合框的编辑区中输入文本后按回车键 ， 则检查列表中有无与此文本相同的项目 ， 若有 ，则把编辑区中的文本删除，否则把编辑区中文本添加到列表的尾部。请填空。
设窗体上有—个名称为Combo1的组合框，并有以下程序：
Privale Sub Combol_ KeyPress(KeyAscii As Integer)
If【 】 =13 Then 回车符的ASCII码是13
For k=0 To Combo1. ListCount-1
If Combo1.Text=Combol. List(k)Then
Combo1.Text=" "
Exit For
End If
Next k
If Combo1. Text＜＞" "Then
Combo1. AddItem 【 】
End If
End If
End Sub
程序的功能是：在组合框的编辑区中输入文本后按回车键，则检查列表中有无与此文本相同的项目，若有，则把编辑区中的文本删除，否则把编辑区中文本添加到列表的尾部。请填空。
A.Combo1.RemoveItem Combo1.Text
B.Combo1.Removeltem4
C.Combo1.RemoveItem Combo1.ListCount
D.Combo1.RemoveItem5
.jpg)
A.Frame1．Name=“框架”
B.Frame1．Caption=“框架”
C.Frame1．Text=“框架”
D.Frame1．Value=“框架”
①设置适当属性，使对话框的标题为“打开文件”；
②设置适当属性，使对话框的“文件类型”下拉式组合框中有两项可供选择：“文本文件”、“所有文件”（如图所示），默认的类型是“所有文件”；
③编写命令按钮的事件过程，使得单击按钮可以弹出“打开文件”对话框。
要求：程序中不得使用变量，事件过程中只能写入一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjtl．vbp，窗体文件名保存为sitl．frm。
在窗体中添加一个命令按钮，名称为Commandl，然后编写如下程序：
窗体打开运行后，单击命令按钮，则消息框的输出结果为__________。
在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序：
Private Sub Command1_Click（）
Dim s，i
For i=1 To 10
s=s+i
Next i
MsgBox s
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果为 。
●试题五
阅读以下应用说明及Visual Basic部分程序代码，将应填入(n)处的字句写在答题纸的对应栏内。
【说明】
在窗体上画一个名称为Combo1的组合框，画两个名称分别Label1、Label2及Caption属性分别为"城市名称"和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示"已成功添加输入项"；如果存在，则在Label2中给出提示"输入项已在组合框中"。
【程序】
Private Sub Combo1_ (1) (KeyAscii As Integer)
If KeyAscii= (2) Then
For i=0 To (3)
If Combo1．Text= (4) Then
Label2．Caption="输入项已在组合框中"
Exit Sub
End If
Next i
Label2．Caption="已成功添加输入项"
Combo1． (5) Combo1．Text
End If
End Sub
注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjr2．vbp，窗体文件名保存为sjt2．frm。
