题目内容
（请给出正确答案）
Private Sub Combo1_Click()
Dim temp
temp = Combo1.Text
[6] = Combo1.List(0)
Combo1.List(0) = temp
End Sub
如果结果不匹配，请 联系老师 获取答案
更多“（6 ）窗体上有一个组合框，其中已输入了若干个项目。程序运行…”相关的问题
窗体上有一个名称为Cbl的组合框，程序运行后，为了输出选中的列表项，应使用的语句是
A．Print Cbl．Selected
B．Print Cbl．List(Cbl．ListIndex)
C．Print Cbl．Selected．Text
D．Print Cbl．List(ListIndex)
窗体上有一个名称为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
程序的功能是 ： 在组合框的编辑区中输入文本后按回车键 ， 则检查列表中有无与此文本相同的项目 ， 若有 ，则把编辑区中的文本删除，否则把编辑区中文本添加到列表的尾部。请填空。
A.Combo1.RemoveItem Combo1.Text
B.Combo1.Removeltem4
C.Combo1.RemoveItem Combo1.ListCount
D.Combo1.RemoveItem5
设窗体上有—个名称为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
程序的功能是：在组合框的编辑区中输入文本后按回车键，则检查列表中有无与此文本相同的项目，若有，则把编辑区中的文本删除，否则把编辑区中文本添加到列表的尾部。请填空。
窗体上有一个图片控件和一个按钮控件，下列程序执行的结果是()。 Private Sub Command1_Click() Picture1.Picture=LoadPicture("C:\picture.jpg") Picture1.Cls Picture1.Print"picture" End Sub
A．窗体无显示，图片框显示图片和文字picture
B．窗体上出现picture文本，图片框无显示
C．窗体上出现picture文本，图片框显示图片picture.jpg
D．窗体无显示，图片框只显示picture文字
●试题五
阅读以下应用说明及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
.jpg)
A.Frame1．Name=“框架”
B.Frame1．Caption=“框架”
C.Frame1．Text=“框架”
D.Frame1．Value=“框架”
注意：存盘时必须存放在考生文件夹下，工程文件名为ylc6.vbp，窗体文件名为ylc6.frm。
.jpg)
（1）将窗体标题改为“学生查询”。
（2）将窗体的边框样式改为“细边框”，取消窗体中水平和垂直滚动条、记录选择器、浏览按钮（导航按钮）和分隔线；将子窗体边框样式改为“点线”，取消子窗体中的记录选择
器、浏览按钮（导航按钮）和分隔线。
（3）在窗体中有两个标签控件，名称分别为“Labell”和“Label2”，将这两个标签上的文字颜色改为白色，背景颜色改为紫蓝色t紫蓝色代码为8388608）。
（4）将窗体主体节中控件的Tab次序改为：
“Chem”_“TxtDetail”→“CmdRefer’’→“CmdList”→
“CmdClear”→“fDtail”→“简单查询”→“Framel 8”。（5）按照以下窗体功能，补充事件代码设计。在窗体中有一个组合框控件和一个文本框控件，名称分
别为“CItem”和“TxtDetail”；有两个标签控件，名称分别为“Label3”和“Ldetail”；还有三个命令按钮，名称分别为“Cm-dList”、“CmdRefer”和“CmdClear‘’。在“Chem”组合框中选择某一项目后，“Ldetail”标签控件将显示出所选项目名加上“内容：”。在“TxtDetail”文本框中输入具体项目值后，单击“CmdRefer”命令按钮，如果“CItem”和“TxtDetail”两个控件中均有值，则在子窗体中显示找出的相应记录，如果两个控件中不全有值，显示消息框，消息框标题为“注意”，提示文字为“查询项目和查询内容不能为空!!!”，消息框中只有一个“确定”按钮；单击“CmdList”命令按钮，在子窗体中显示“ts-tud”表中的全部记录；单击“CmdClear”命令按钮，将“Chem”和“TxtDetail”两个控件中的值清空。
注意：不允许修改窗体对象“fStud”和子窗体对象“fDe-tail”中未涉及的控件、属性和任何VBA代码；不允许修改表对象“tStud”。代码设计只允许补充一条语句、完成设计，不允许增删和修改其他位置已存在的语句。
