首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,包含两个窗体,名称分别为Form1、Form2。窗体上已有部分控件,请在Form1窗体上再添加一个名称为Text1的文本框,Text属性为空,Enable属性设置为False(如图所示),输入字符时文本框
(1)在考生文件夹下有一个工程文件sjt3.vbp,包含两个窗体,名称分别为Form1、Form2。窗体上已有部分控件,请在Form1窗体上再添加一个名称为Text1的文本框,Text属性为空,Enable属性设置为False(如图所示),输入字符时文本框
admin
2020-06-30
26
问题
(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://jikaoti.com/ti/TgS0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列说法中正确的是()。
窗体上有单选钮和列表框控件。单击名称为Option1、标题为"国家"的单选钮,向列表框中添加国家名称,如下图所示。Option1的单击事件过程如下:PrivateSubOption1_Click() Dimarr arr=Array("
以下不能输出"Program"的语句是( )。
以下关于图片框控件的说法中,错误的是( )。
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生30个0~1000的整数,将其放入一个数组中,然后输出其中的最大值。程序运行后,单击命令按钮(名称为Command1,标题为“输出最大值”,如图所示),即
编写如下程序:PrivateSubCommand1_Click() DimmAsInteger,nAsInteger n=2 Form=1To3 Printproc(n); NextmEndSubF
要求如果x被7除余2,则输出x的值,下列语句中不能实现此功能的语句是( )。
(1)在考生文件夹下有一个工程文件sjt3.vbp。窗体上有个钟表图案,其中代表指针的直线的名称是Line1,还有一个名称为Lahel1的标签和其他一些控件(如图1所示)。在程序运行时,若用鼠标右键单击圆的边线,则指针恢复到起始位置(如图1所示);若用鼠标
假定在某个事件过程中需要计算:y=3!+5!的值,下面最好的设计是
随机试题
某公司库存原材料一批,成本20万元,期末市价22万元,期末在资产负债表中按20万元列示该项资产的价值,这种做法采用的计量属性是()
垂直距离是指
中国工程咨询协会会员中,个人会员的权利有()
下列关于资产评估价值类型的有关说法不正确的有()。
下列哪一项不属于价值型股票基金的范围?()
老师带领学生学习了《雪绒花》一课,课程临近结束时,老师请同学们发挥想象力,根据歌曲内容以及创作背景,编排一个音乐剧,同学们都积极参与其中。请问编排音乐剧这个环节属于哪一种活动?()
()也称为组装测试。
用二维表的形式来表示实体之间联系的数据模型叫做______。
DaylightSavingTimebeginsonMonday,April3,2005.PeopleinmostpartsoftheUnitedStateswillturntheirclocksaheadone
HemingwayAmericanwriter,HemingwaywasborninOakPark,Illinois.Hestartedhiscareerasawriterinanewspaperoffic
最新回复
(
0
)