首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Combo1的组合框,然后画两个名称分别为Label1、Label2,标题分别为“城市名称”和“空白”的标签。程序运行后,在组合框中输入一个新项目并按回车键,如果输入的项目在组合框的列表中不存在,则自动将其添加到组合框的列表中,并在La
在窗体上画一个名称为Combo1的组合框,然后画两个名称分别为Label1、Label2,标题分别为“城市名称”和“空白”的标签。程序运行后,在组合框中输入一个新项目并按回车键,如果输入的项目在组合框的列表中不存在,则自动将其添加到组合框的列表中,并在La
admin
2012-09-07
49
问题
在窗体上画一个名称为Combo1的组合框,然后画两个名称分别为Label1、Label2,标题分别为“城市名称”和“空白”的标签。程序运行后,在组合框中输入一个新项目并按回车键,如果输入的项目在组合框的列表中不存在,则自动将其添加到组合框的列表中,并在Label2中给出提示“已成功添加新输入项”,如图所示。如果输入的项目己存在,则在Label2中给出提示“输入项已在组合框中。”。请填空。
Private Sub Combol KeyPress(KeyAscii As Integer)
If______________=13 Then
For i=0 To Combol.ListCount-1
If Combol.Text=______________Then
Label2.Caption=“输入项已在组合框中。”
ExitSub
EndIf
Nexti
Label2.Caption=”已成功添加新输入项”
Combol._____________Combol.Text
EndIf
End Sub
选项
答案
KeyAscii Combol.list(i) Admtem
解析
本题考查组合框操作。在组合框的键盘按下事件中,如果按下了回车键,也就足KeyAscii的值为13时,开始扫描整个组合框中现有的列表项信息,如果在组合框的Text属性输入的字符串和Combol.List(i)相同,则不需要加入到组合框中,否则利用AddItem方法加入到组合框中。
转载请注明原文地址:https://www.kaotiyun.com/show/CRhp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下过程的作用是将26个小写字母逆序打印出来,请补充完整。 SubInverse() Fori=122To【】 Print【】; Nexti EndSub
新建一个窗体,其Borderstyle属性设置为FixedSingle,但运行时却没有最大化和最小化按钮,可能的原因是
窗体不拥有下列______事件。
下面不属于软件设计原则的是______。
下面4个CT函数中是用来判断用户输入的数是否为奇数的,是奇数的返回1,否则返回0,其中正确的是
为了暂时关闭计时器,应把该计时器控件的哪个属性设置为False?
结构化程序设计的主要任务是确定每个模块的
具有80个结点的完全二叉树的深度为【】。
DBA是数据库系统的一个重要组成部分,它有很多职责。以下选项不属于DBA职责的是
下列不属于软件工程的3个要素的是
随机试题
对接触砷、石棉、镍、铬酸盐、放射性物质的工人进行定期体检时,首先应考虑
双歧杆菌涂片镜检,其菌体特征错误的是
有害动物及动物产品生物安全处理措施不包括()。
A.人血白蛋白B.外用栓剂(吲哚美辛栓)C.米索前列醇D.胰岛素注射液E.一般药品未开启包装时应置于2~8℃保存,开启使用后不要存放于冰箱中,可在室温下(不超过25℃)存放4周的是()。
甲起诉乙支付货款。一审判决后,乙提起上诉,并提出产品质量存在问题,要求甲赔偿损失。下列关于二审法院处理本案方式的哪一表述是正确的?(2006—卷三—39,单)
某施工单位项目部将自己的业务发包给不具备经营资质的施工队。在施工过程中,因施工队不注重安全防护导致在建工程基坑坍塌,造成1人死亡,2人重伤。依据《安全生产法》,下列关于此次事故伤亡赔偿责任的说法中,正确的是()。
假设某投资者在2013年12月31日,买入1股A公司股票,价格为85元,2014年12月31日,A公司发放3元分红,同时其股价为90元,那么该股票总持有区间的收益率为()。
技术分析为基础的投资战略是在否定()市场的前提下,以历史交易数据为基础的调查研究模型。
整个教育制度的核心组成部分是()
TheotherdayIwaslisteningtoaChristianradioprogramonthewaytothegym.Eachdaytheyaskaquestionfortheirlistene
最新回复
(
0
)