题目内容
（请给出正确答案）
设组合框Combo1中有3个项目，则以下能删除最后一项的语句是______。
A．Combo1．RemoveItem Text
B．Combol．RemoveItem 2
C．Combo1．RemoveItem 3
D．Combol．RemoveItem Combol．Listcount
如果结果不匹配，请 联系老师 获取答案
更多“设组合框Combo1中有3个项目，则以下能删除最后一项的语句…”相关的问题
设组合框Combo1中有3个项目，则下列能删除最后一项的语句是()。
A．Combo1.RemoveItem Text
B．Combo1.RemoveItem 2
C．Combo1.RemoveItem 3
D．Combo1.RemoveItem Combo1. Listcount
A.Combo1.RemoveItem Text
B.Combo1.RemoveItem 2
C.Combo1.RemoveItem 3
D.Combo1.RemoveItem Combo1.Listeount
设组合框Combol中有3个项目，则以下能删除最后一项的语句是______。
A．Combol. RemoveItem Text
B．Combol. RemoveItem 2
C．Combol. RemoveItem 3
D．Combol. RemoveItem Combol. Listcount
设窗体上有—个名称为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 Text
B.Combo1.RemoveItem2
C.Combvo1.RemoveItem3
D.Combo1.RemoveItemCombo1.Listcount
设组合框Combol中有3个列表项，为了删除其最后一项，应使用的语句是______。
A．Combol.RemoveItem Combo1. ListCount
B．Combol.RemoveItem 3
C．Combol.RemoveItem Combol. ListCount-1
D．Combol.RemoveItem Combol. Text
●试题五
阅读以下应用说明及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
（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)和一个文本框(Text1)，代码如下。请填入适当的内容，将程序补充完整。
Private Sub Combo1_Cliek()
TextFontName=ComboList(ComboListlndex)
End Sub
Private Sub Form_Load()
With Combol
Addltem"宋体"
Addltem"隶书"
Addltem"黑体"
&8226;Addltem"楷体_GB2312""
&8226;Listlndex＝0
End With
Text1.【 】30
Textl. 【 】=Combol.List(0)
End Sub
阅读以下说明及Visual Basic程序代码，高尔夫球应填入(n)处的字句写在对应栏内。
[说明]
设某单位Acess数据库中有一张员工信息表，其中记录了员工编号、姓名、性别等基本信息。下面的应用程序利用数据控件(Data)实现了对这张表中记录的增加、删除和修改操作。其运行界面如下：
![阅读以下说明及Visual Basic程序代码，高尔夫球应填入（n)处的字句写在对应栏内。[说明]](https://img2.soutiyun.com/shangxueba/ask/11259001-11262000/11260092/ct_crppxm_crppxprogxvb_00047(20093).jpg)
在开发过程中，数据控件Data1与员工数据表相连接，各文本框、“性别”组合列表框Combo1、“政治面貌”组合列表框Combo2都分别与数据表的相应字段绑定，界面上从左到右各操作按钮分别取名为CmdAdd、CmdDel、CmdUpdate和CmdExit。
[Visual Basic代码]
Private Sub Form_Load() ' 加载窗体
Combo1. (1) "男"
Combo1. (1) "女"
Combo2. (1) "党员"
Combo2. (1) "团员"
Combo2. (1) "群众"
End Sub
Private Sub CmdAdd_Cliek() '增加记录
Datal. Recordset. AddNew
End Sub
Private Sub CmdDel_Click() '删除记录
Datal. Recordset. (2)
Datal. Recordset. MoveNext
End Sub
Private Sub CmdUpdate_Click() '修改记录
If Datal. ReadOnly = (3) And Datal. Recordset. Updatable Then
Datal. Recordset. Edit
Datal. Recordset. (4)
Else
MsgBox "数据表不允许修改!"
End If
End Sub
Private Sub CmdExit_Click () '退出程序
Dim ret As Long
ret : MsgBox("真的要退出吗？", vbQuestion + vbYesNo, "退出" )
If (5) Then
Datal. Reeordset. Close
End
End ff
End Sub
