首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有两个标签L1和L2,标题分别为“口令”和“允许次数”;一个命令按钮C1,标题为“确定”;两个文本框名称分别为Text1和Text2。其中Text1用来输入口令(输入时,文本框内容显示“*”),初始内容
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有两个标签L1和L2,标题分别为“口令”和“允许次数”;一个命令按钮C1,标题为“确定”;两个文本框名称分别为Text1和Text2。其中Text1用来输入口令(输入时,文本框内容显示“*”),初始内容
admin
2016-06-23
44
问题
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有两个标签L1和L2,标题分别为“口令”和“允许次数”;一个命令按钮C1,标题为“确定”;两个文本框名称分别为Text1和Text2。其中Text1用来输入口令(输入时,文本框内容显示“*”),初始内容为空;Text2的初始内容为3。并给出了C1的事件过程,但不完整,要求去掉程序中的注释符,把程序中的?改为正确的内容,使得程序运行时,在Text1中输入口令后,单击“确定”,如果输入的是“123456”则在Text1中显示“口令正确”;如果输入其他内容,单击“确定”后,弹出错误提示对话框(如图所示),并且Text2中的数字减1。最多可输入3次口令,若3次都输入错误,则禁止再次输入。
注意:不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。
选项
答案
[操作步骤] 步骤1:打开本题工程文件,将文本框Textl的Password Char属性设置为“水”。 步骤2:打开代码编辑窗口,去掉程序中的注释符,将问号改为正确的内容。 参考代码(画下划线部分是需填入的内容) Private Sub C1_Click() If
Text1.Text
="123456"Then’输入的口令与正确的口令相比较 Text1.Text="口令正确" Text1.
PasswordChar
="" Else Text2.Text=Text2.Text-1’当密码错误时Text2中的数减1 If Text2.Text>
0
Then MsgBox"第"&(3-Text2.Text)&"次口令错误,请重新输入" Else MsgBox"3次输入错误,请退出" Text1.Enabled=
False
’当Text1的Enabled属性为false时则文本不能输入 End If End If End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/xSLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有如下一个函数过程:FunctionFun(aAsInteger)StaticC b=0:b=b+1:c=c+1 Fun=a+b+cEndFunction在窗体上添加一个命令按钮,事件过程如下:
有如下函数过程:FunctionFun(ByValxAsInteger,ByValyAsInteger)AsInteger DoWhileY<>0 reminder=xMody x=
能触发滚动条Scorll事件的操作是()。
窗体上有Text1、Text2两个文本框及一个命令按钮Command1,编写下列程序:DimyAsIntegerPrivateSubCommand1_Click()DimxAsIntegerx=2Te
设用复制、粘贴的力怯建立了一个命令安钮数组Command1,以下列该数组说法错误的是
在VisualBasic中,要将一个窗体从内存中释放,应使用的语句是
在下列关于菜单的说法中,错误的是
双击窗体中的对象后,VisualBasic将显示的窗口是
设Y是整形变量,能判断Y为奇数的表达式是
组合框有3种不同的类型,这3种类型是下拉式列表框、简单组合框和______。在这3种不同类型的组合框中,只能选择而不能输入数据的是_____。
随机试题
社会基本矛盾有两对,一对是生产力和生产关系的矛盾,另一对是()
男性,25岁。下腹痛伴脓血便3年。近4日病情加重,并出现高热、衰弱、恶心等症状。查体:精神萎靡,心率114次/分,腹膨隆,全腹压痛,肠鸣音消失。最可能的诊断是
抑制肝昏迷患者大脑中假神经递质的形成,首选的治疗是
麻疹皮疹特点是奶麻皮疹特点是
下列关于业主大会的表述正确的是:()
招标过程中,招标人无权没收投标保证金的情形有()。
有关我国封闭式基金利润分配的说法中正确的有()
我国金融债券发行的特殊性主要体现在()。
【B1】【B10】
A、Itisabouthelpingeachother.B、Itissharingyourstorywithothers.C、Itissomethinginyourheart.D、Itismakingother
最新回复
(
0
)