首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,包含两个窗体,名称分别为Form1、Form2。窗体上已有部分控件,请在Form1窗体上再添加一个名称为Text1的文本框,Text属性为空,Enable属性设置为False(如图所示),输入字符时文本框
(1)在考生文件夹下有一个工程文件sjt3.vbp,包含两个窗体,名称分别为Form1、Form2。窗体上已有部分控件,请在Form1窗体上再添加一个名称为Text1的文本框,Text属性为空,Enable属性设置为False(如图所示),输入字符时文本框
admin
2020-06-30
54
问题
(1)在考生文件夹下有一个工程文件sjt3.vbp,包含两个窗体,名称分别为Form1、Form2。窗体上已有部分控件,请在Form1窗体上再添加一个名称为Text1的文本框,Text属性为空,Enable属性设置为False(如图所示),输入字符时文本框内将显示字符“*”。
程序功能如下:
①单击Form1窗体的“输入密码”按钮,则Text1文本框的Enable属性变为True,且获得焦点。
②输入密码后单击Form1窗体的“密码校验”按钮,则判断Text1中输入内容是否为小写字符“abc”,若是,则Form1窗体消失,显示Form2窗体;若密码输入错误,则提示重新输入,若三次密码输入错误,则退出系统。
③单击Form2窗体的“返回”按钮,则Form2窗体消失,显示Form1窗体。
Form2窗体的控件和程序已给出,但Form1窗体的程序不完整,请将程序中的注释符去掉,把?改为正确的内容,以实现上述程序功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,最后,程序将按照原文件名进行存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp,窗体如图所示。程序功能如下:
①单击“读数据”按钮,则考生文件夹下in4.dat文件的内容(该文件中仅含有字母和空格)在Text1文本框中显示。
②在Text1中选取部分文本,单击“统计”按钮,则以不区分大小写字母的方式,自动统计选中文本中单词“the”出现的次数,并将统计结果显示在Text2文本框内。
请将“统计”按钮的Click事件过程中的注释符去掉,把?改为正确的内容,以实现上述功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,最后将程序按原文件名进行存盘。
选项
答案
(1)【操作步骤】 步骤1:打开本题工程文件,添加一个名称为Text1的文本框,初使文本内容为空,Enabled属性设置为False,并将其PasswordChar属性设置为"*" 步骤2:分析并编写程序代码。 程序提供代码 窗体1的代码 Dim n As Integer Private Sub Command1_Click() ’Text1.Enabled =? Text1.SetFocus End Sub Private Sub Command2_Click() If Text1.Enabled = False Then MsgBox "请先使用"输入密码"功能!" Else ’If Text1 <> "?" Then n = n + 1 ’If ? = 3 Then MsgBox "三次密码输入错误,你无权进入本系统!" End Else MsgBox "第" + Str(n) + "次密码输入错误,请重试!" Text1 = "" Text1.SetFocus End If Else Text1.Enabled = False Text1 = "" ’?.Hide ’?.Show End If End If End Sub 窗体2的代码 Private Sub Command1_Click() Form2.Hide Form1.Show End Sub 程序结束 参考答案 第1个?处填入:True 第2个?处填入:abc 第3个?处填入:n 第4个?处填入:Form1 第5个?处填入:Form2 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Option Base 1 Dim s As String Private Sub Command1_Click() Open App.Path & "\in4.dat" For Input As #1 s = Input(LOF(1), #1) Close #1 Text1.Text = s End Sub Private Sub Command2_Click() Dim m As Integer ’ If Len(s) = ? Then MsgBox "请先使用"读数据"功能!" Else ’If Text1.?= 0 Then MsgBox "请先选中文本!" Else t = "" For i = 1 To Text1.SelLength c = Mid(Text1.SelText, i, 1) If c <> " " Then t = t + c Else ’If ? = "the" Then m = m + 1 End If t = "" End If Next i ’? = Str(m) End If End If End Sub 程序结束 参考答案 第1个?处填入:0 第2个?处填入:SelLength 第3个?处填入:Lcase$(t) 第4个?处填入:Text2 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/omHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设有以下函数过程PrivateFunctionFun(a()AsInteger,bAsSlring)AsIntegerEndFunction若已有变量声明:Dimx(5)AsInteger
假定有如下语句:answer$=MsgBox("String1",,"String2","String3",2)执行该语句后,将显示一个信息框,单击其中的"确定"按钮,则answer$的值为( )。
算法时间复杂度的度量方法是
窗体上有一个如右图所示的图形控件,控件中显示了如图所示的文字,可以判断这个图形控件( )。
工程中有Form1、Form2两个窗体(Form1中有文本框Text1;Form2中有Text1文本框和Command1命令按钮)。Form1是启动窗体。在这些模块中编写下面的程序代码:Form1中的代码如下:PrivateSubT
下列叙述中正确的是()。
下面正确使用动态数组的是()。
设工程文件包含两个窗体文件Form1.frm、Form2.frm及一个标准模块文件Module1.bas。两个窗体上分别只有一个名称为Command1的命令按钮。Form1的代码如下:PublicxAsIntegerPrivateSubFo
(1)在考生文件夹下有一个工程文件sjt3.vbp。窗体上有个钟表图案,其中代表指针的直线的名称是Line1,还有一个名称为Lahel1的标签和其他一些控件(如图1所示)。在程序运行时,若用鼠标右键单击圆的边线,则指针恢复到起始位置(如图1所示);若用鼠标
假定通过复制、粘贴操作建立了一个命令按钮数组Commandl,以下说法中错误的是
随机试题
________.
内、外侧膝状体分别是____________和____________传导通路的中继站。
吕女士,32岁,孕2产1,妊娠24周以后,腹部迅速膨隆,出现腹部胀痛、呼吸困难及下肢浮肿,于妊娠28周时来院就诊.检查:子宫底在剑突下3横指,腹围96cm,胎位触不清。胎心音听不清,隐约触到胎动,本病例可能的诊断是()
能引起心脏损伤的药物是
确立系统质量控制网络的首要工作是()。
根据我国《企业会计制度》的规定,我国企业资产负债表采用()结构。
计算销项税是以含增值税的销售额作为计税依据。()
假设某深圳证券交易所所属的证券登记结算机构的结算银行是招商银行总行(深圳),则深圳交易所的会员法人可选择()作为其结算银行。
在乘火车时,导游人员应尽量将老年旅游者安排在下铺。()
Notlongago,amysteriousChristmascarddroppedthroughourmailslot.TheenvelopewasaddressedtoamannamedRaoul,who,I
最新回复
(
0
)