首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,包含两个窗体,名称分别为Form1、Form2。窗体上已有部分控件,请在Form1窗体上再添加一个名称为Text1的文本框,Text属性为空,Enable属性设置为False(如图所示),输入字符时文本框
(1)在考生文件夹下有一个工程文件sjt3.vbp,包含两个窗体,名称分别为Form1、Form2。窗体上已有部分控件,请在Form1窗体上再添加一个名称为Text1的文本框,Text属性为空,Enable属性设置为False(如图所示),输入字符时文本框
admin
2020-06-30
68
问题
(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全国计算机二级
相关试题推荐
假定通过复制、粘贴操作建立了一个命令按钮数组Command1,以下说法中错误的是( )。
设有如下Command1的单击事件过程及fun过程:PrivateSubCommand1_Click()DimxAsIntegerx=Val(InputBox("请输入一个整数"))fun(x)
在软件生命周期中,能准确地确定软件系统必须做什么和必须具备哪些功能的阶段是()。
有三个关系R、S和T如下:则关系T是由关系R和S通过某种操作得到,该操作为( )。
以下关于图片框控件的说法中,错误的是( )。
以下叙述中错误的是( )。
窗体上有一个名称为Textl的文本框,一个名称为Commandl的命令按钮。窗体文件的程序如下:PrivateTypeXaAsIntegerbAsIntegerEndTypePrivateSubCom
在考生文件夹中有一个工程文件sjt5.vbp。窗体外观如图所示。运行程序,单击“读数据”按钮,读入文件中的数据到字符串变量中并显示在Labe12标签中。单击“排序”命令按钮时,对读入的数据从小到大进行排序,并将排序结果在窗体的Labe14控件中显示。
要求在程序运行时,如果按住鼠标左键不放而移动鼠标,鼠标的位置坐标同步显示在窗体右上角的标签(名称为Label1)中,如右图所示,放开鼠标左键后,停止同步显示。下面可以实现此功能的程序是( )。
随机试题
尿崩症的表现是原发性醛固酮增多症的表现是
血流动力学监测发现CVP增高而血压正常,提示
女性,32岁。上呼吸道感染后2周,出现肉眼血尿,颜面水肿入院。体检:血压160/100mmHg,尿蛋白(++)。红细胞满视野。进一步收集临床资料中诊断意义最小的是()
胶片特性曲线可以反映下列哪些特性
根据《建设工程质量管理条例》规定,下列有关建设工程质量保修的说法中,正确的是()。[2017年真题]
预算松弛会给企业造成以下不良隋况,除了:
计算简便、容易掌握、但预测结果不太精确的资金需要量预测方法是()。
下列哪个情形不属于专利法第二十三条第二款所述的“现有设计特征”?
【《罗摩衍那》】北京大学2006年世界通史真题
以下程序段的输出结果是X=1:Y=4DoUnti1Y>4X=X*Y:Y=Y+1LoopPrintX
最新回复
(
0
)