首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下有一个工程文件sjt3.vbp。程序的功能是:通过键盘向文本框中输入数字,如果输入的是非数字字符,则提示输入错误,且文本框中不显示输入的字符。单击名称为Commandl、标题为“添加”的命令按钮,则将文本框中的数字添加到名称为Combol的组合
考生文件夹下有一个工程文件sjt3.vbp。程序的功能是:通过键盘向文本框中输入数字,如果输入的是非数字字符,则提示输入错误,且文本框中不显示输入的字符。单击名称为Commandl、标题为“添加”的命令按钮,则将文本框中的数字添加到名称为Combol的组合
admin
2020-04-08
50
问题
考生文件夹下有一个工程文件sjt3.vbp。程序的功能是:通过键盘向文本框中输入数字,如果输入的是非数字字符,则提示输入错误,且文本框中不显示输入的字符。单击名称为Commandl、标题为“添加”的命令按钮,则将文本框中的数字添加到名称为Combol的组合框中。在给出的窗体文件中已经添加了全部控件,但程序不完整。要求去掉程序中的注释符,把程序中的?改为正确的内容。
注意:不能修改程序中的其他部分和其他控件的属性。最后把修改后的文件按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符“′”,将问号改为正确的内容。 参考答案(阴影部分是需考生填入的内容) Private Sub Commandlclick() Combol.
AddItem Text.Text
′将Textl中的内容加入Combol中 Textl.Text=""’同时将Textl内容清除 End Sub Private Sub Textl_KeyPress(KeyAscii As Integer) If KeyAscii>57 Or KeyAscii<
48
Then′数字的Ascii码值下界 MsgBox"请输入数字!" KeyAscii=
0
′清空 End If End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
单击命令按钮,运用组合框的List属性将文本框中的数字添加到组合框中,通过ASCII码来判断输入的是否为数字字符。
转载请注明原文地址:https://kaotiyun.com/show/NNTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有如下事件过程:PrivateSubForm_Click()x=0Whilex10x=x+1x=x*xWendPrintxEndSub运行程
将文本框的()属性设置为True时,文本框可以输入或显示多行文本,且会自动换行。
要使菜单项MenuOne在程序运行时失效,应使用的语句是()。
下列属性中,决定单选按钮是否被选中的是()。
下面是求最大公约数的函数的首部:Functiongcd(ByValxAsInteger,ByValyAsInteger)AsInteger若要输出8、12、16这3个数的最大公约数,下面正确的语句是()。
下列可以激活属性窗口的操作是()。
支持子程序调用的数据结构是( )。
设工程文件中包名称分别为Form1、Form2的两个窗体,且Form1的菜单属性设置如下:窗体Form1中的程序如下:DimFlagAsBooleanPrivateSubForm_Load() Flag=TrueEndSubPr
VB中有这样一类文件:该文件不属于任何一个窗体,而且仅包含程序代码,这类文件的扩展名是()。
随机试题
A.急性化脓性胆囊炎B.急性化脓性胆管炎C.急性坏死性胰腺炎D.急性化脓性阑尾炎E.绞窄性肠梗阻Murphy征出现于
PassageThreeWhomdoyouthinkthispassageisaddressedto?
正常生产时,影响精馏塔操作压力的主要因素有()。
A.补液试验后尿量无变化B.双肾B超,KUBC.逆行肾盂造影D.尿中大量红细胞管型E.尿比重>1.030,尿钠<20mmol/L
long-circulatingliposomes
某患者面部外伤造成右侧上唇部分缺损,缺损大小相当于上唇的1/5,伤口不甚干净,创面已不渗血。以下处理措施中,哪项是不必要的
已知某项目的年总成本费用为300万元,年销售费用、管理费用合计为总成本费用的10%,年折旧费为20万元,年摊销费为10万元,年利息支出为10万元,则该项目的年经营成本为()万元。
(2008年考试真题)在下列各项中,不属于滚动预算方法的滚动方式的是()。
Althoughinteriordesignhasexistedsincethebeginningofarchitecture,itsdevelopmentintoa【C1】______fieldisreallyquite
A、Mostwomenfindnewjobsthroughinformalrecruitment.B、Mostwomenfindnewjobsthroughformaljobsearch.C、Workexperience
最新回复
(
0
)