题目内容（请给出正确答案）

[主观题]

设窗体上有—个名称为Combo1的组合框，并有以下程序：Privale Sub Combol_ KeyPress（KeyAscii As In

设窗体上有—个名称为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 Sub

程序的功能是：在组合框的编辑区中输入文本后按回车键，则检查列表中有无与此文本相同的项目，若有，则把编辑区中的文本删除，否则把编辑区中文本添加到列表的尾部。请填空。

提问人：网友dfaith 发布时间：2022-01-06

参考答案

查看官方参考答案

如搜索结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装简答题APP，拍照搜题省时又省心！

更多“设窗体上有—个名称为Combo1的组合框，并有以下程序：Pr…”相关的问题

第1题

设在窗体上有1个名称为Combo1的组合框,含有5个项目,要删除最后一项,正确的语句是（）。A．C

设在窗体上有1个名称为Combo1的组合框,含有5个项目,要删除最后一项,正确的语句是（）。

A．Combo1.RemoveItem Combo1.Text

B． Combo1.RemoveItem4

C． Combo1.RemoveItem Combo1.ListCount

D． Combo1.RemoveItem5

点击查看答案

第2题

窗体上有一个名称为Combo1的组合框，为了引用Combo1中最后一个列表项，应使用的表达式是A.Combo1．L

A.A.Combo1.List（ListCount）

B.B.Combo1.List（Comb01.ListCount-1）

C.C.Combo1.List（ListCount-1）

D.D.Combo1.List（Comb01.ListCount）

点击查看答案

第3题

设在窗体上有—个名称为Combol的组合框，含有5个项目，要删除最后一项，正确的语句是 ______。

A.Combo1.RemoveItem Combo1.Text

B.Combo1.Removeltem4

C.Combo1.RemoveItem Combo1.ListCount

D.Combo1.RemoveItem5

点击查看答案

第4题

在窗体上画一个名称为 Combo1 的组合框，然后画两个名称分别为 Label1 、 Label2 ，标题分别

为 \" 城市名称 \" 和空白的标签。程序运行后，在组合框中输入一个新项目并按回车键，如果输入的项目在组合框的列表中不存在，则自动将其添加到组合框的列表中，并在 Label2 中给出提示 \" 已成功添加新输入页。 \" ，如图所示。如果输入的项目已存在，则在 Label2 中给出提示 \" 输入项已在组合框中。 \" 。请填空。

Private Sub Combol_KeyPress（KeyAscii As Integer）

If KeyAscii=13 Then

For i=0 To Combo1  ListCount-1

If Combo1  Text= 【 12 】 Then

Label2  Caption=" 输入项已在组合框中。 "

Exit Sub

End If

Next i

Label2  Caption=" 已成功添加新输入项。 "

Combo1 ______ Combo1 Text

End If

End Sub

点击查看答案

第5题

窗体上有一个名称为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)

点击查看答案

第6题

窗体上有一个名称为Cbl的组合框，程序运行后，为了输出选中的列表项，应使用的语句是A．Print Cbl．Se

窗体上有一个名称为Cbl的组合框，程序运行后，为了输出选中的列表项，应使用的语句是

A．Print Cbl．Selected

B．Print Cbl．List(Cbl．ListIndex)

C．Print Cbl．Selected．Text

D．Print Cbl．List(ListIndex)

点击查看答案

第7题

窗体上有一个名称为Cbl的组合框，程序运行后，为了输出选中的列表项，应使用的语句是（）。A. Print

窗体上有一个名称为Cbl的组合框，程序运行后，为了输出选中的列表项，应使用的语句是（）。

A. Print Cb1．Selected

B. Print Cb1．List(Cb1．Listlndex)

C. Print Cb1．Selected．Text

D. Print Cb1．List(Listlndex)

点击查看答案

第8题

（16）窗体上有一个名称为Cbl的组合框，程序运行后，为了输出选中的列表项，应使用的语句是A）Print Cb

（16）窗体上有一个名称为Cbl的组合框，程序运行后，为了输出选中的列表项，应使用的语句是

A）Print Cb1.Selected

B）Print Cbl.I,ist(Cbl.ListIndex)

C）Print Cb1.Selected.Text

D）Print Cbl.List(Listlndex)

点击查看答案

第9题

●试题五阅读以下应用说明及Visual Basic部分程序代码，将应填入（n)处的字句写在答题纸的对应栏

●试题五

阅读以下应用说明及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

点击查看答案

第10题

设窗体上有1个名称为HScroll1的水平滚动条，其Max、Min属性分别设置为100、1；有2个名称分别为Option

1、Option2的单选按钮，其标题分别为"30"、"50"；还有下面程序代码： Private Sub Option1_Click() HScroll1 = Val(Option1.Caption) End Sub Private Sub Option2_Click() HScroll1 = Val(Option2.Caption) End Sub 程序运行时，单击Option2单选按钮，则滚动条上滚动框的位置是_______________。

A、在最左边

B、在最右边

C、在中间

D、在中间偏左的位置

点击查看答案