窗体上有一个名称为Cb1的组合框,程序运行后,为了输出选中的列表项,应使用的语句是()。A.Print C
窗体上有一个名称为Cb1的组合框,程序运行后,为了输出选中的列表项,应使用的语句是()。
A.Print Cb1.Selected
B.Print Cb1.List(Cbl.LisfIndex)
C.Print Cb1.Selected.Text
D.Print Cb1.List(ListIndex)
窗体上有一个名称为Cb1的组合框,程序运行后,为了输出选中的列表项,应使用的语句是()。
A.Print Cb1.Selected
B.Print Cb1.List(Cbl.LisfIndex)
C.Print Cb1.Selected.Text
D.Print Cb1.List(ListIndex)
窗体上有一个名称为Cbl的组合框,程序运行后,为了输出选中的列表项,应使用的语句是
A.Print Cbl.Selected
B.Print Cbl.List(Cbl.ListIndex)
C.Print Cbl.Selected.Text
D.Print Cbl.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
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
窗体打开运行后,单击命令按钮,则消息框的输出结果为 。
注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjr2.vbp,窗体文件名保存为sjt2.frm。
●试题五
阅读以下应用说明及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