首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下有一个工程文件sjt3.vbp。程序的功能是:通过键盘向文本框中输入数字,如果输入的是非数字字符,则提示输入错误,且文本框中不显示输入的字符。单击名称为Command1、标题为“添加”的命令按钮,则将文本框中的数字添加到名称为Combo1的组合
考生文件夹下有一个工程文件sjt3.vbp。程序的功能是:通过键盘向文本框中输入数字,如果输入的是非数字字符,则提示输入错误,且文本框中不显示输入的字符。单击名称为Command1、标题为“添加”的命令按钮,则将文本框中的数字添加到名称为Combo1的组合
admin
2016-06-23
24
问题
考生文件夹下有一个工程文件sjt3.vbp。程序的功能是:通过键盘向文本框中输入数字,如果输入的是非数字字符,则提示输入错误,且文本框中不显示输入的字符。单击名称为Command1、标题为“添加”的命令按钮,则将文本框中的数字添加到名称为Combo1的组合框中。在给出的窗体文件中已经添加了全部控件,但程序不完整。要求去掉程序中的注释符,把程序中的?改为正确的内容。
注意:不能修改程序中的其他部分和其他控件的属性。最后把修改后的文件按原文件名存盘。
选项
答案
[操作步骤] 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 参考代码(画下划线部分是需填入的内容) Private Sub Command1 C1ick() Combo1.
AddItem Text1.Text
’将Text1中的内容加入Combo1中 Text1.Text=""’同时将Text1内容清除 End Sub Private Sub Text1 KeyPress(KeyAscii As Integer) If KeyAscii>57 Or KeyAscii<
48
Then ’数字的Ascii码值下界 MsgBox"请输入数字!" KeyAscii=
0
’清空 End If End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://jikaoti.com/ti/eCJ0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
决定一个窗体有无控制菜单的属性是______。
请填写下列空白以实现运行后形成一个主对角线上元素值为l,其他元素为0的6×6阶矩阵。PrivateSubCommand1_Click()Dims(6,6)Fori=1To6Fori=1To6If
单击命令按钮时,下列程序的执行结果是PrivateSubCommand1_Click() BT4EndSubPrivateSubBT(xAsInteger) x=x*2+1 Ifx<6
下列程序段的执行结果为DimA(3,3)ForM=1To3 ForN=1To3 IfN=MOrN=3-M+1Then A(M,N)=1 Else A(M,N)=
下列不属于VisualBasic特点的是
下列语句的输出结果是______。PrintFormat$(1258.6,"000,000.00")
窗体上建立了一个名为CormnonDialong1的通用对话框,用下面的语句建立一个对话框:CommonDialong1.action=2则以下语句与之等价的是()。
执行以下Commaand1的Click事件过程在窗体上显示()。OptionBase0PrinvateSubCommand1_Clcik()Dimaa=Array("a","b","C","d","e","
设已经在菜单编辑器中设计了窗体的快捷菜单,某顶级菜单为a1,且取消其“可见”属性。运行时,以下()事件过程可以使快捷菜单的菜单项响应鼠标左键单击和右键单击。
设用复制、粘贴的力怯建立了一个命令安钮数组Command1,以下列该数组说法错误的是
随机试题
创伤复合伤的特点不包括()
高血压病人发生慢性心力衰竭的主要原因是
营养物质的吸收主要发生于
某冶炼厂男工,52岁,从事冶炼工作近25年。近年出现鼻黏膜糜烂、溃疡,鼻中隔穿孔。皮肤出现侵蚀性溃疡,久治不愈。该名工人最可能接触的有害物质是
可作包衣增塑剂的是可作不溶性薄膜衣料的是
如听诊腹部时,则肠鸣音变化为
投资建设项目资本金占总投资的比例为20%及以上的行业是()。
投标人相互串通投标或者与招标人串通投标的,情节严重的,取消其()内参加依法必须进行招标的项目的投标资格并予以公告,直至由工商行政管理机关吊销营业执照。
如果企业已经确认收入,又发生销售退回的,均应冲减退回当月的销售收入,同时冲减退回当月的销售成本。()
从俄国移居到德国,开西方抽象艺术先河的画家是()。
最新回复
(
0
)