首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,包含2个窗体,名称分别为Forml、Form2。窗体上已有部分控件,请在Forml窗体上再添加1个名称为Textl的文本框,Text属性为空,Enable属性设置为False(如图所示),输入字符时文本框
(1)在考生文件夹下有一个工程文件sjt3.vbp,包含2个窗体,名称分别为Forml、Form2。窗体上已有部分控件,请在Forml窗体上再添加1个名称为Textl的文本框,Text属性为空,Enable属性设置为False(如图所示),输入字符时文本框
admin
2019-03-14
31
问题
(1)在考生文件夹下有一个工程文件sjt3.vbp,包含2个窗体,名称分别为Forml、Form2。窗体上已有部分控件,请在Forml窗体上再添加1个名称为Textl的文本框,Text属性为空,Enable属性设置为False(如图所示),输入字符时文本框内将显示字符“*”。程序功能如下:
①单击Forml窗体的“输入密码”按钮,则Textl文本框Enable属性变为True,且获得焦点。
②输入密码后单击Forml窗体的“密码校验”按钮,则判断‘rextl中输入内容是否为小写字符“abc”,若是,则Forml窗体消失,显示Form2.窗体;若密码输入错误,则提示重新输入,若三次密码输入错误,则退出系统。
③单击Form2窗体的“返回”按钮,则Form2窗体消失,显示Forml窗体。Form2窗体的控件和程序已给出,但Forml窗体的程序不完整,请将程序中的注释符去掉,把?改为正确的内容,以实现上述程序功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,最后,程序将按照原文件名进行存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp,窗体如图所示。程序功能如下:
①单击“读数据”按钮,则考生文件夹下in4.dat文件的内容(该文件中仅含有字母和空格)在Textl文本框中显示。
②在Textl中选取部分文本,单击“统计”按钮,则以不区分大小写字母的方式,自动统计选中文本中单词“the”出现的次数,并将统计结果显示在Text2文本框内。请将“统计”按钮的Click事件过程中的注释符去掉,把?改为正确的内容,以实现上述功能。
注意:考生不得修改窗体文件中已经存在的控件和程序,最后将程序按原文件名进行存盘。
选项
答案
(1)根据题意,通过文本框的Name、Text、Enabled、PasswordChar属性设置文本框,单击“输入密码”按钮,Text的Enabled属性设置为True,并通过SetFocus方法使文本框获得焦点。输入密码后单击Forml窗体的“密码校验”按钮,则判断Textl中输入内容是否为小写字符“abc”,若密码正确,通过Hide方法隐藏FormI窗体,并通过Show显示Form2窗体;若密码输入错误,则提示重新输入,变量n用于累积输入次数,三次密码输入错误,则退出系统。 步骤1:打开本题工程文件,添加一个名称为Textl的文本框,初使文本内容为空,Enabled属性设置为False,并将其Pass-wordChar属性设置为“*” 步骤2:分析并编写程序代码。 程序提供代码 窗体1的代码 Dim n As Integer Private Sub Commandl_Click() TextI.Enabled=? Textl.SetFocus End Sub Pri vale Sub Command2_Click() lf Textl.Enabled=False Then MsgBox”请先使用‘输入密码’功能!” Else ‘If Textl <>“?” Then n=n+1 ‘If ?=3 Then MsgBox“三次密码输入错误,你无权进入本系统!” End Else MsgBox”第”+Str(n)+”次密码输入错误,请重试!” Textl=“” Textl.SetFocus End If Else Textl.Enabled=False Textl=“” ‘?.Hide ‘?.Show End If End If End Sub 窗体2的代码 Private Sub Commandl_Click() Form2.Hide Forml.Show End Sub 程序结束 第1个?处填入:True 第2个?处填入:abc 第3个?处填入:rl 第4个?处填入:Forml 第5个?处填入:Form2 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (2)单击“读数据”按钮,运用文件操作将考生文件夹下in4.dat文件的内容显示在Textl文本框中。在Command2 Click事件过程中,否则运用Len()函数判断文本框中是否有字符,如果Len(S)=0那么弹出MsgBox对话框”请先使用‘读数据’功能!”,否则运用 SelLength属性判断文本椎中是否有字符被选中,如果Sell,ength属性0,那么弹出MsgBox对话框”请先选中文本!”。在Text 中选中部分文本,并单击“统计”按钮,通过LCase函数使统计不区分大小写字母,判断选中文本中是否出现单词“the”,并统计这个单词的出现的次数,将结果显示在Text2文本框内。 步骤l:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提代码 Option Base l Dim S As String Private Sub Commandl_Click() Open App.Path&”\in4.dat“For Input As#l s=Input(LOF(1),#1) Close#l Textl.Text=S End Sub Private Sub Command2_Click() Dim m As Integer ‘If ten(S)=?Then MsgBox“请先使用‘读数据’功能!” Else If Textl.?=0 Then MsgBox“请先选中文本!” Else t=“” For i=1 To Textl.SelLength c=Mid(Textl.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个?处填入:Senlength 第3个?处填入:Lease$(t) 第4个?处填入:Text2 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://jikaoti.com/ti/2TN0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体模块的声明部分声明变量时,不能使用的关键字是
下面程序运行时,若输入395,则输出结果是PrivateSubCommandlClick0Dimx%x=InputBox(“请输入一个3位整数”)PrintxMod10,x\100,(xMod100)\10EndSub
下列对于软件测试的描述中正确的是
下列关于菜单项的描述中,错误的是
已知:x=-6y=39则表达式“y\x*Sgn(x)”的值为
某人编写了如下程序,用来求10个整数(整数从键盘输入)中的最大值:PrivateSubCommadl_Ctick()Dima(10)AsInteger,maxAsIntegerFork=1To10a(k)=InputBox(“输入一
设窗体上有一个标签Labell和一个计时器Timerl,Timerl的Interval属性被设置为1000,Enabled属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是
在深度为7的满二叉树中,叶子结点的个数为
下列数据结构中,能用二分法进行查找的是
下列数据结构中,属于非线性结构的是
随机试题
A.苍术B.藿香C.佩兰D.白豆蔻E.草果用于治疗疟疾的药物是
患者男性,58岁。胸闷痛反复发作二年,加重一日,现胸闷如窒而痛,气短,喘憋,心烦易怒,咯黄痰,头昏沉,大便干,夜寐不安,舌暗红苔黄腻,脉滑数弦。
法律责任是一种不利的法律后果,而产生法律责任的原因之一是违法行为,关于违法行为的构成要素,以下论述正确的是:()
根据《大气污染防治行动计划》,到2017年,除必要保留的以外,地级及以上城市建成区基本淘汰每小时()及以下的燃煤锅炉,禁止新建每小时()以下的燃煤锅炉。
只有掌握了业主、设计单位、咨询单位和竞争对手的情况,承包商才能准确地报价,这说明( )也是影响建设工程投资的重要因素。
下列属于泄露客户信息的行为是()。
甲公司是一家国有煤矿企业,按照2013年1月1日开始实施的《中央企业负责人经营业绩考核暂行办法》对企业负责人实际经济增加值考核2016年的企业财务报表中有关资料如下:(1)平均资产合计为20000万元(其中,在建工程为3000万元,有80%符合主业规定)
根据测算,全国城乡普遍实施“单独二胎”政策,将使总人口在2030年达到14.53亿,峰值人口增加1500万;2050年,总人口下降为13.85亿,但比现行生育率增加约5000万人,“单独二胎”与现行生育政策相比,2030年老龄化水平从24.1%降到23.8
A、 B、 C、 D、 B
A、Learninghowtochangemajors.B、Decidingwhichprofessortofollow.C、Learninghowtomanagetime.D、Makingsurehowtolearn
最新回复
(
0
)