首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上画一个名称为Combo1的组合框,然后画两个名称分别为Label1、Label2,标题分别为“城市名称”和“空白”的标签。程序运行后,在组合框中输入一个新项目并按回车键,如果输入的项目在组合框的列表中不存在,则自动将其添加到组合框的列表中,并在La
在窗体上画一个名称为Combo1的组合框,然后画两个名称分别为Label1、Label2,标题分别为“城市名称”和“空白”的标签。程序运行后,在组合框中输入一个新项目并按回车键,如果输入的项目在组合框的列表中不存在,则自动将其添加到组合框的列表中,并在La
admin
2012-09-07
54
问题
在窗体上画一个名称为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://kaotiyun.com/show/CRhp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
已知B的ASCII码为66,以下程序统计由键盘输入的字符串中各英文字母的使用次数 Dim【】 Fori=65To90 pp(i)=0 Next x$=InputBox("Enterastring",x$) x$=
新建一个窗体,其Borderstyle属性设置为FixedSingle,但运行时却没有最大化和最小化按钮,可能的原因是
通过以下______窗口可以在设计时直观的调整窗体在屏幕上的位置。
下列叙述中正确的是______。
以下各项,可以作为VisualBasic变量名的是
在深度为5的满二叉树中,结点的个数为
若有一个动态数组a有两个元素a(0)和a(1),现要令数组a有三个元素a(0)、a(1)和a(2),则应当使用【】语句。
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下程序:PrivateSubCommand1_Click()Dimx,y,zAsIntegerx=5
在面向对象方法中,类的实例称为【】。
要存放如下矩阵的数据,在不浪费存储空间的基础上,能实现声明的语句是123246369
随机试题
请你说明信用证的关系人包括哪些?
人员配备的工作包括______、培训和考核组织成员。
慢性肾盂肾炎的基本病变属于
依据《安全生产法》的规定,承担安全评价、认证、检测、检验工作的机构,出具虚假证明,给他人造成损害的,()。
质量计划应根据()来编制。
根据会计科目设置的,具有一定格式和结构,用于分类反映会计要素增减变动情况及其结果的载体是()。
某公司拟采购一批零件,供应商报价如下:(1)立即付款,价格为9620元;(2)20天内付款,价格为9650元;(3)21至40天内付款,价格为9800元;(4)41至90天内付款,价格为10000元。要求回答以下两个互不相关的问题:假设银行短
韵律活动中,3-4岁最感兴趣的动作是()。
有些教师,其所带班级的考试成绩总是处在年级前茅,个人的教育教学能力、工作能力都特别强,但是学生对其满意度却不是很高,这是由于()。
WhattheHeckDoesVincentvanGoghHaveToDoWithInternetMarketing?[A]Nothingandeverything!Tuckeddiscreetlyawayon
最新回复
(
0
)