首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Combol的组合框,画两个名称分别为Label1和Label2及Caption,属性分别为“城市名称”和空白的标签。程序运行后,当在组合框中输入一个新项后按回车键(ASCII码为13)时,如果输入的项在组合框的列表中不存在,则自动添加
在窗体上画一个名称为Combol的组合框,画两个名称分别为Label1和Label2及Caption,属性分别为“城市名称”和空白的标签。程序运行后,当在组合框中输入一个新项后按回车键(ASCII码为13)时,如果输入的项在组合框的列表中不存在,则自动添加
admin
2013-01-23
52
问题
在窗体上画一个名称为Combol的组合框,画两个名称分别为Label1和Label2及Caption,属性分别为“城市名称”和空白的标签。程序运行后,当在组合框中输入一个新项后按回车键(ASCII码为13)时,如果输入的项在组合框的列表中不存在,则自动添加到组合框的列表中,并在Label2中给出提示“已成功添加输入项”,如图16-3所示;如果存在,则在Label2中给出提示“输入项已在组合框中”。请在【 】、【 】和【 】处将程序补充完整。
Private Sub Comhel【 】(KeyAscii As Integer)
If KeyAseii=13 Then
For i=0 To Combol. ListCount-1
If Combol. Text=【 】Then
LabelCaption="输入项已在组合框中"
Exit Sub
End If
Next i
LabelCaption="已成功添加输入项"
Combol.【 】Combol. Text
End If
End Sub
选项
答案
KeyPress ,combol. List(i) ,AddItem
解析
当KeyAscii为13时,表示按下回车键若要组合框控件接收一个回车事件,则要使用Combol_KeyPress事件。ListCount属性列出组合框中表项的数量;List属性保存了组合框中所有值的数组;Addltem方法用来在列表框中插入一行文本。
转载请注明原文地址:https://kaotiyun.com/show/l5hp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列成员中不属于主窗口的是
在窗体上画一个按钮,然后编写如下的事件代码。在按钮上单击,输出为()。PrivateSubfunc(aAsInteger)StaticmAsIntegerDimnAsInteger
下列表达式的值为Tme的是()。
有如下程序PrivateSubCommand1_Click()a=100Dos=s+a
下面叙述中正确的是
在窗体上画一个命令按钮和一个文本框,并将窗体的KeyPreview属性设置为True,然后编写如下代码:DimSaveAllAsStringPrivateSubForm_Load()ShowText1.
VisualBasic中窗体文件的扩展名是()。
下面程序运行时,内层循环的循环总次数是ForM=1To3ForN=0TOM—1NextNNextM
下列说法中,不属于数据模型所描述的内容的是______。
表达式Fix(-32.68)+Int(-23.02)的值为【】。
随机试题
《会计法》第二十一条规定,财务会计报告由()组成。
生产新药或者已有国家标准的药品的,须经何部门批准,并发给药品批准文号()
隧道围岩分类主要考虑()等指标。
在行政诉讼中,人民法院已经受理的下列情形中应当裁定驳回起诉的有()。
案例二在一次管理经验交流会上,有两个企业的老总分别论述了他们各自对如何进行有效管理的看法。老总A认为,企业的首要资产是员工,只有员工们都把企业当成自己的家,把个人的命运与企业的命运紧密地结合在一起,才能充分发挥他们的智慧和力量为企业服务。因此,企业有什么
A.牙槽嵴组B.水平组C.斜行组D.根间组E.根尖组起自牙槽嵴顶,呈放射状向牙冠方向走行,将牙向牙槽窝内牵引的是()。
下列关于唐朝十恶制度的表述,正确的是
已知A=,矩阵B=A+kE正定,则k的取值为_______.
Severalofthechemicalelementswereknowninprehistoric【C1】______.Oneofthegreat【C2】______forwardincivilizationcamew
UNICEFisjoiningwithanonprofitgrouptobringAIDS【T1】______programstomorewomenandchildreninfivecountries.UNICEF,
最新回复
(
0
)