首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有两个标签L1和L2,标题分别为“口令”和“允许次数”;一个命令按钮C1,标题为“确定”;两个文本框名称分别为Text1和Text2。其中Text1用来输入口令(输入时,文本框内容显示“*”),初始内容
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有两个标签L1和L2,标题分别为“口令”和“允许次数”;一个命令按钮C1,标题为“确定”;两个文本框名称分别为Text1和Text2。其中Text1用来输入口令(输入时,文本框内容显示“*”),初始内容
admin
2020-06-30
30
问题
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有两个标签L1和L2,标题分别为“口令”和“允许次数”;一个命令按钮C1,标题为“确定”;两个文本框名称分别为Text1和Text2。其中Text1用来输入口令(输入时,文本框内容显示“*”),初始内容为空;Text2的初始内容为3。并给出了C1的事件过程,但不完整,要求去掉程序中的注释符,把程序中的?改为正确的内容,使得程序运行时,在Text1中输入口令后,单击“确定”,如果输入的是“123456”则在Text1中显示“口令正确”;如果输入其他内容.单击“确定”后,弹出错误提示对话框(如图所示),并且Text2中的数字减1。最多可输入3次口令,若3次都输入错误,则禁止再次输入。
注意:不能修改程序中的其他部分。最后将修改后的文件按原文件名存盘。
选项
答案
步骤1:打开本题工程文件,将文本框Text1的Password Char属性设置为“*” 步骤2:代开代码编辑窗口,去掉程序中的注释符,将问号改为正确内容。 Private Sub C1 C1ick() If Text1="123456"Then’输入的口令与正确的口令相比较 Text1.Text="口令正确" Text1.PasswordChar="" Else Text2.Text=Text2.Text-1’当密码错误时Text2中的数减1 If Text2.Text>0Then MsgBox"第"&(3-Text2.Text)&"次口令错误,请重新输入" E1se MsgBox"3次输入错误,请退出" Text1.Enabled=False当Text1的Enabled属性为false时则文本不能输入 End If End If End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
本题通过判断文本框Text3输入的密码是否为“123456”执行不同的操作。每输入一次错误密码,将提示重新输入,直到文本框Text2中的数值为0时,则提示错误,并禁用文本框Text1。
转载请注明原文地址:https://jikaoti.com/ti/aqS0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个文本框,然后编写如下事件过程:PrivateSubTextl_KeyPress(KeyAsciiAsInteger)DimcharAsStringchar=Chr(K
若窗体上有一个名为Command1的命令按钮,并有下面的程序:PrivateSubCommand1_Click() Dimarr(5)AsInteger Fork=1To5 arr(k)=k Nextk prog
对长度为n的线性表作快速排序,在最坏情况下,比较次数为
下列叙述中正确的是
设有如下Command1的单击事件过程及fun过程:PrivateSubCommand1_Click()DimxAsIntegerx=Val(InputBox("请输入一个整数"))fun(x)
下列叙述中正确的是()。
下面程序段中Print方法不能执行6次的是
下列关于键盘事件的说法中,正确的是()。
下列运算符中,优先级别最低的是
下列运算符中,优先级别最低的是
随机试题
下列不符合急性白血病的骨髓组织的描述的是
A.CA125B.AFPC.hCGD.LDHE.CA19-9卵巢黏液性交界瘤中,能预测复发的肿瘤标记物为
原子核对电子的吸引力称为
确定分析对象系统,讨论系统中各元素可能产生的失效类型和原因,研究元素失效对相邻系统和整个系统之间的影响的分析方法是()。
下列关于印花税的说法,错误的是( )。
关于道德规范、法律规范的说法中,正确的是()。
线描结构绘画分三种,分别是写实性线描、________和________。
贸易顺差
设f(x)二阶连续可导,且=-1,则().
Thestrategiesforhandlingriskcompriseoftwomaintypes:negativerisks.andpositiverisks.Thegoaloftheplanistominimiz
最新回复
(
0
)