首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下有一个工程文件sjt3.vbp。程序的功能是:通过键盘向文本框中输入数字,如果输入的是非数字字符,则提示输入错误,且文本框中不显示输入的字符。单击名称为Commandl、标题为“添加”的命令按钮,则将文本框中的数字添加到名称为Combol的组合
考生文件夹下有一个工程文件sjt3.vbp。程序的功能是:通过键盘向文本框中输入数字,如果输入的是非数字字符,则提示输入错误,且文本框中不显示输入的字符。单击名称为Commandl、标题为“添加”的命令按钮,则将文本框中的数字添加到名称为Combol的组合
admin
2020-04-08
39
问题
考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
以下关于命令按钮的叙述中正确的是( )。
结构化程序所要求的基本结构不包括()。
编写如下程序:PrivateSubCommand1_Click()DimnumAsIntegerDimkAsInteger,nAsIntegernum=InputBox("请输入一个正整数:")k
窗体上有Command1、Command2两个命令按钮。现编写以下程序:OptionBase0Dima()AsInteger,mAsIntegerPrivateSubCommand1_Click() m=InputBox("请
下面程序的执行结果是( )。PrivateSubCommand1_Click() a=0 k=1 DoWhilek
程序运行时,拖动滚动条上的滚动框,则所触发的事件是
运行如下程序:PrivateSubCommandl_Click()Dima(5,5)AsIntegerF0ri=1To5Forj=1To4a(i,j)=i*2+JIfa(i,
如果将命令按钮的访问键设置为"D",以下不会触发命令按钮Click事件的操作是
编写如下程序:PrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=3b=2Ifa*b<10Thenb=b+1Elseb
随机试题
《中华人民共和国传染病防治法》规定,国家建立传染病疫情( )
目前在我国,肺癌的发病率和死亡率居城市恶性肿瘤的
患者,男,45岁。因上吐下泻住某医院,每天静脉途径给庆大霉素24万U,共9天。近5天来无尿,眼结膜水肿,腹腔积液,下肢水肿。实验室检查:BUN42mmol/L,血清肌酐1040μmol/L,血清钾6.8mmol/L。应诊断为
概、预算文件的甲组文件中包括()。
普通股票股东在公司盈利和剩余财产的分配顺序上列在债权人之后,但列在优先股票股东之前。()
关于重复保险合同的说法,正确的是()。
非物质文化遗产
实现中华民族伟大复兴,迫切要求我国由一个文化资源大国转变为一个文化强国。建设社会主义文化强国具有重要意义,体现在
老王正在Excel中计算员工本年度的年终奖金,他希望与存放在不同工作簿中的前三年奖金发放情况进行比较,最优的操作方法是()。
It’snosecretthatsomeoftheresolutionsthatmanyofusvowedtopursueinthenewyear—eathealthy,loseweight,quitsmoki
最新回复
(
0
)