首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Combol的组合框,画两个名称分别为Label1和Label2及Caption,属性分别为“城市名称”和空白的标签。程序运行后,当在组合框中输入一个新项后按回车键(ASCII码为13)时,如果输入的项在组合框的列表中不存在,则自动添加
在窗体上画一个名称为Combol的组合框,画两个名称分别为Label1和Label2及Caption,属性分别为“城市名称”和空白的标签。程序运行后,当在组合框中输入一个新项后按回车键(ASCII码为13)时,如果输入的项在组合框的列表中不存在,则自动添加
admin
2013-01-23
71
问题
在窗体上画一个名称为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://www.kaotiyun.com/show/l5hp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面概念中,不属于面向对象方法的是
下列程序的功能是:单击窗体时将随机生成20个两位数依次赋值给一个由20个元素组成的数组,然后把数组反序存放,再输出。OptionBase1PrivateSubForm_Click()Dima(20)AsInteg
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:DimkAsIntegerPrivateSubForm_Load()k=15EndSubPrivateSubCommand1_C
在程序设计语言中,重复结构对应两类循环语句,对先执行循环体后判断的称为【】循环结构。
一个对象在收到消息时,要予以响应。不同的对象收到同一消息可以产生完全不同的结果,这一现象叫做对象的
如果要在程序代码中为图片框动态加载和清除图像,可以利用的函数是
为了在按下Esc键时执行某个命令按钮的事件过程,需要将该命令按钮的一个属性设置为True,这个属性是
在VisualBasic中,用于文件复制的命令是【】。
以下说法错误的是______。
设A="123456",则表达式Val(Left(A,4)+Mid(A,4,2))的值为
随机试题
血浆凝血酶原时间(PT)延长可见于下列情况,但哪项除外
A.辛温通阳,开痹散寒B.理气活血,通络止痛C.通阳泄浊,豁痰开结D.滋阴益肾,养心安神E.益气养阴,活血通络
企、事业单位最高计量标准的主要配套设备中的计量器具可以向___________溯源。
特种作业人员须经()合格取得操作许可证者,方可上岗。
骗取贷款、票据承兑、金融票证罪最高可以判处无期徒刑。()
()是研究者致被调查者的短信,旨在说明研究者的身份、研究目的和内容、对象选择方法、保密原则,并署研究机构名称。
全面依法治国,总目标是建设中国特色社会主义法治体系,建设社会主义法治国家。建设中国特色社会主义法治体系的重点是
管理信息系统成熟的标志是_______。
A.Ford’sopponentsB.TheassemblylineC.Ford’sgreatdreamD.TheestablishmentofthecompanyE.Ford’sbiggestcontrib
______poorweatherconditionsresultingfromacominghurricane,allCailleachAirwayflightshavebeenpostponeduntilfurther
最新回复
(
0
)