首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有两个标签L1和L2,标题分别为“口令”和“允许次数”;一个命令按钮C1,标题为“确定”;两个文本框名称分别为Text1和 Text2,其中Text1用来输入口令(输入时,显示“*”),无初始内容Tex
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有两个标签L1和L2,标题分别为“口令”和“允许次数”;一个命令按钮C1,标题为“确定”;两个文本框名称分别为Text1和 Text2,其中Text1用来输入口令(输入时,显示“*”),无初始内容Tex
admin
2012-10-09
50
问题
在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有两个标签L1和L2,标题分别为“口令”和“允许次数”;一个命令按钮C1,标题为“确定”;两个文本框名称分别为Text1和 Text2,其中Text1用来输入口令(输入时,显示“*”),无初始内容Text2的初始内容为3,如图3—1所示。
程序给出了C1的事件过程,但不完整,要求去掉程序中的注释符,把程序中的?改为正确内容,使得在运行时,在Text1中输入口令后,单击“确定”按钮,如果输入的是“123456”则在Text1中显示“口令正确”;如果输入其他内容,单击“确定”后,弹出错误提示对话框,并且 Text2中的数字减1。最多可输入3次口令,若3次都输入错误,则禁止再次输入。
注意:不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
选项
答案
① 在窗体上建立好控件后,先设置控件属性,再编写事件过程。 ② 在文本框里显示的内容通过Text属性设置,其形式为: 文本框名.Text=显示的内容 要使文本框内容显示为“*”,需将PasswordChar属性设置为“*”。 程序中用到的MsgBox语句用法为: MsgBox提示[,按钮][,标题] 在程序运行时控件是否可操作由Enabled属性设置,当该属性为True时控件可操作,为 False时不可操作。若3次都输入错误,禁止再次输入,将文本框的Enabled属性置为 False即可。 ③ 解题步骤: 第一步:建立界面并设置控件属性。程序中用到的控件及其属性值见表4。 表 4控 件 属 性 设 置 值 文本框 Name Text Text1 空 文本框 Name Text Text2 3 命令按钮 Name Caption C1 确定 标签 Name Caption L1 口令 标签 Name Caption L2 输入次数 第二步:编写程序代码。 程序提供的代码: Private Sub C1_Click() ’ If?="123456" Then Text1.Text="口令正确" ’ Text1.?="" Else Text2.Text=Text2.Text—1 ’ If Text2.Text>?Then MsgBox "第" & (3—Text2.Text) & "次口令错误,请重新输入" Else MsgBox "3次输入错误,请退出" ’ Text1.Enabled=? End If End If End Sub 参考代码: Private Sub C1_Click() If Text1.Text="123456" Then Text1.Text="口令正确" Text1.PasswordChar="" Else Text2.Text=Text2.Text—1 If Text2.Text>0 Then MsgBox "第" & (3—Text2.Text) & "次口令错误,请重新输入" Else MsgBox "3次输入错误,请退出" Text1.Enabled= False End If End If End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/L3hp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()x=0DoUntilx=-1a=InputBox(“请输入A的值”)a=Val(A
软件工程研究的内容主要包括:【】技术和软件工程管理。
下列程序段,在运行时最早输出的内容是 a=2 c=1 AAA: c=c+a Ifc<10Then Printc GoToAAA Else Print"10以内的奇数显示完毕。" EndIf
下列不属于结构化分析的常用工具的是
编写如下事件过程: PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger) PrintChr(KeyCode) EndSub PrivateSubForm_KeyP
有如下程序:PrivateSubCommand1_Click()DimkAsInteger,mAsIntegerDimopAsIntegerk=4:m=1op:PPC(k,m):Printop;
关于VisualBasic"方法"的概念错误的是
在列表框中当前被选中的列表项的序号是由下列哪个属性表示_________。
下列叙述中,不属于软件需求规格说明书的作用的是_______。
随机生成的10个两位数,求出它们的总和和平均数。产生两位数采用的算法如下:分别产生个位数(0~9)和十位数(1~9),然后十位数乘10再加上个位数即得到一个两位数。说明:在窗体上有一个Command1按钮,单击它将计算10个随机数的和以及平均数,并
随机试题
在ASP.NET程序中执行完下面的代码后,ID为show的Label控件中显示的结果是()。inti=1;while(i
标志着艺术家意象创造的终结的是()
在施工投标前期工作中,编制投标人须知的重点在于()。
早期期货市场是远期合约市场。( )
燕贾祖璋①自从春风唤醒了芳草以后,依依袅袅的杨柳垂枝上的点点银色芽苞中,抽放着浅黄嫩绿的新叶;秃濯僵立的桃李枯丫间,也点缀着娇红洁白的花葩。当晶莹和暖的阳光照耀万物的时候,
张先生:应该向吸烟者征税,用以缓解医疗保健事业的投入不足。因为正是吸烟,导致了许多严重的疾病。要吸烟者承担一部分费用,来对付因他们不良习惯而造成的健康问题,是完全合理的。李女士:照您这么说,如果您经常吃奶油蛋糕,或者肥猪肉,也应该纳税。因为如同吸烟一样,
1960-1970年间,非洲国家津巴布韦境内的狩猎者猎捕了6500多头大象以获取象牙,这一时期津国大象总数从35000头下降到30000头以下。1970年津国采取了保护大象的措施,1970-1980年间逮捕并驱逐了800多名狩猎人。但是,到1980年津国大
李先生最近决定花5000美元购买一部1974年生产的R.R.牌二手车,这个价格比目前这种车的平均售价低50%。买了这部车后,需要花1万美元的维修费才能把它修好。由于这部车是古典型轿车,预计五年后会涨价70%,如果把它修好并使用五年后,将会赚2000美元。对
在关系数据库设计理论中,如果一个关系R满足1NF,但R的某个非码属性传递函数依赖于码,则关系R至多属于()。
设顺序表的长度为16,对该表进行简单插入排序。在最坏情况下需要的比较次数为()。
最新回复
(
0
)