首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有一个工程文件vbsj5.vbp(相应的窗体文件为vbsii5.frm)。窗体Form1上有两个名称为Labl和Lab2的标签,它们的标题分别为“密码"和“允许次数”;一个名称为Cmd1的命令按钮,其标题为“确定”;两个名称分别为Txt1和T
在考生文件夹中有一个工程文件vbsj5.vbp(相应的窗体文件为vbsii5.frm)。窗体Form1上有两个名称为Labl和Lab2的标签,它们的标题分别为“密码"和“允许次数”;一个名称为Cmd1的命令按钮,其标题为“确定”;两个名称分别为Txt1和T
admin
2017-09-22
69
问题
在考生文件夹中有一个工程文件vbsj5.vbp(相应的窗体文件为vbsii5.frm)。窗体Form1上有两个名称为Labl和Lab2的标签,它们的标题分别为“密码"和“允许次数”;一个名称为Cmd1的命令按钮,其标题为“确定”;两个名称分别为Txt1和Txt2的文本框。其中Txt1用来输入密码(输入时显示“*”),无初始内容,Txt2的初始内容为3。已给出了Cmdl的事件过程,但不完整,要求去掉程序中的注释符“*”,把程序中的问号“?”改为正确内容,使得在运行时,在Txt1中输入密码后,单击“确定”按钮,如果输入的是“123456”,则在Txt1中显示“密码正确”如图3-66所示;如果输入其他内容,单击“确定”后,弹出如图3.67所示的错误提示对话框,并且Txt2中的数字减1。最多可输入3次密码,若3次输入错误,则禁止再次输入。
程序源码:
Private Sub Cmdl_Click()
’ If?="1234 56"Then
Txt1.Text="密码正确"
’ Txt1.?=""
Else
Txt2.Text=Txt2.Text-1
’ If Txt2.Text> ?Then
MsgBox"第"&(3-Txt2.Text)&"
次密码错误,请重新输入”
Else
MsgBox"3次输入错误,请退出"
’ Txt1.Enabled=?
End If
End If
End Sub
选项
答案
步骤1:打开考生文件夹中的本题工程文件vbsi5.vbp,将文本框Txt1的PasswordChar属性值设置为“*”。 步骤2:在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。参考代码: If Txt1.Text="123456"Then Txt1.PasswordChar="" If Txt2.Text>0 Then Txt1.Enabled=False 步骤3:按要求将文件保存至考生文件夹中。
解析
根据题目源程序,判断文本框Txt1输入的密码是否为“123456”的条件表达式为:Txt1.Text="123456";要去掉对文本框中输入内容的屏蔽,需将其PasswordChar属性值清空,即执行语句:Txt1.PasswordChar="";每输入一次错误密码,文本框Txt2中的数字减1,当文本框Txt2中数值还大于0时,提示重新输入,否则提示错误,并禁用文本框Txt1。
转载请注明原文地址:https://kaotiyun.com/show/qjGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
为了使命令按钮(名称为Command1)右移200,应使用的语句是
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下程序:PrivateSubCommand1_Click()Dimx,y,zAsIntegerx=5y=7
在下图中,要在窗体的标签Label1上显示“二级VB等级考试”字样,标签属性应设置为______。
下列事件过程的功能是:建立一个名为Data1的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度为1,2,3,…,90。请在空白处填入适当的内容,将程序补充完整()。PrivateTypeAngKAsInteger
随机文件使用Put语句写数据,使用【】语句读数据。
启动窗体在【】对话框中指定。
一个完整的程序必须完成3个层次的过程,它们分别是编码、测试和【】。
随机试题
对全国注册造价工程师的注册、执业活动实施统一监督管理工作的是()。
High-speedlivinghasbecomeafactoflife,andthefranticpaceistakingitstoll,accordingtosciencewriterJamesGleick.
除哪项外均是对中成药库房的要求
简述预算定额中悬垂绝缘子串安装的工作内容。
个人贷款的对象为自然人和法人。()
(2019年)某企业采用备抵法核算应收账款的减值损失。下列各项中,该企业应贷记“坏账准备”科目的有()。
影响某股票贝塔系数大小的因素有()。
对未成年人决定是否劳动教养时,未成年人的年龄、身份,以其()的实际情况确定。
数据类型是()。
WhichofthefollowingitalicizedphrasesindicatesCAUSE?
最新回复
(
0
)