首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有一个工程文件vbs5.vbp(相应的窗体文件为vbsj5.frm)。窗体Forml上有两个名称为Lab1和Lab2的标签,它们的标题分别为“密码”和“允许次数”;一个名称为Cmdl的命令按钮,其标题为“确定”;两个名称分别为Txt1和Txt
在考生文件夹中有一个工程文件vbs5.vbp(相应的窗体文件为vbsj5.frm)。窗体Forml上有两个名称为Lab1和Lab2的标签,它们的标题分别为“密码”和“允许次数”;一个名称为Cmdl的命令按钮,其标题为“确定”;两个名称分别为Txt1和Txt
admin
2016-03-22
59
问题
在考生文件夹中有一个工程文件vbs5.vbp(相应的窗体文件为vbsj5.frm)。窗体Forml上有两个名称为Lab1和Lab2的标签,它们的标题分别为“密码”和“允许次数”;一个名称为Cmdl的命令按钮,其标题为“确定”;两个名称分别为Txt1和Txt2的文本框。其中Txt1用来输入密码(输入时显示“*”),无初始内容,Txt2的初始内容为3。已给出了Cmdl的事件过程,但不完整,要求去掉程序中的注释符“*”,把程序中的问号“?”改为正确内容,使得在运行时,在Txt1中输入密码后,单击“确定”按钮,如果输入的是“123456”,则在Txt1中显示“密码正确”如图3.30所示;如果输入其他内容,单击“确定”后,弹出如图3-31所示的错误提示对话框,并且Txt2中的数字减1。最多可输入3次密码,若3次输入错误,则禁止再次输入。
程序源码:
PriVate Sub Cmdl一Click()
Txtl.Text=”密码正确”
Else
Txtt.Text=Txt2.Text一1
MsgBox“第”&(3一Txt2.Text)&
“次密码错误,请重新输入”
Else
MsgBox”3次输入错误,请退出”
End If
End Sub
选项
答案
【操作步骤】 步骤1:打开考生文件夹中的本题工程文件vbsJ5.vbp,将文本框。Txt1的PasswordChar属性值设置为“*”。 步骤2:在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。 参考代码: If Txt1.Text=“123456”Then Txt1.PasswordChar=“” If Txt2.Text>0 Then Txt1.Enabled=False 步骤3:按要求将文件保存至考生文件夹中
解析
转载请注明原文地址:https://www.kaotiyun.com/show/s0Lp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体(Name属性为Forml)上面添加两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Commandl),然后编写如下两个事件过程:PrivateSubCommandl_Click()a=Tex
下列不属于VisualBasic特点的是()。
定义有5个整数型元素的数组,正确的语句是
窗体上已有名称分别为Drivel、Dirl、Filel的驱动器列表框、目录列表框和文件列表框,且有1个名称为Textl的文本框。以下程序的功能是:将指定位置中扩展名为“.txt”的文件显示在Filel中,如果双击FileI中的某个文件,则在Textl中显示
设窗体上有_个名为Listl的列表框,并编写下面的事件过程:PrivateSubListl_Click()DimchAsStringch=Listl.List(Listl.Listlndex)Listl,R
下面程序的执行结果是PrivateSubCommandl_Click()a=1OFork=lTo5Step一1a=a--kNextkPrinta;kEndSub
某二叉树共有7个结点,其中叶子结点只有1个,则该二叉树的深度为(假设根结点在第1层)
Print方法可以在对象上输出数据,这些对象包括
下面的数组声明语句中正确的是
将任意一个正的两位数N的个位数与十位数对换的表达式为()。
随机试题
不能用己烯雌酚的是
A.毛莨苷B.藏红花苦苷C.芦荟苷D.腺苷E.鸟苷最难发生酸水解的苷是
按()来分,化学热处理又可分为固体法、液体法和气体法。
按幻觉产生的条件分类,以下哪种幻觉不包括在内
按照应用和虚拟机的观点,软件可分为:
企业价值评估模型分为股利现金流量模型、股权现金流量模型和实体现金流量模型三种,其中在实务中很少被使用的是()。
下列关于折校的表述,错误的有()。
“巧妇难为无米之炊”,结合实际谈谈你的看法。
Theproducedepartmentsofthefuturemaylooklikenothingonearth,andwithgoodreason.Chinesescientistshavebeengrowing
Labelthediagrambelow.ChooseyouranswersfromtheboxandwritethelettersA-Enexttoquestions33-37.A.Cirrus
最新回复
(
0
)