首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,包含两个窗体,名称分别为Form1、Form2。窗体上已有部分控件,请在Form1窗体上再添加一个名称为Text1的文本框,Text属性为空,Enable属性设置为False(如图所示),输入字符时文本框
(1)在考生文件夹下有一个工程文件sjt3.vbp,包含两个窗体,名称分别为Form1、Form2。窗体上已有部分控件,请在Form1窗体上再添加一个名称为Text1的文本框,Text属性为空,Enable属性设置为False(如图所示),输入字符时文本框
admin
2020-06-30
23
问题
(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全国计算机二级
相关试题推荐
在窗体上画一个文本框,其名称为Text1,初始内容为空白,并设置成多行显示格式;然后再画两个命令按钮,其名称分别为Command1和Command2,标题分别为“显示”和“保存”,如图2.92所示,编写适当的事件过程。程序运行后,如果单击“显示”按钮,则读
下列叙述中正确的是
设有如下Command1的单击事件过程及fun过程:PrivateSubCommand1_Click()DimxAsIntegerx=Val(InputBox("请输入一个整数"))fun(x)
(1)在考生目录下有一个工程文件sjt3.vbp,窗体上有一个圆和一条直线(直线的名称为Linel)构成一个钟表的图案;有两个命令按钮,名称分别为Command1、Command2,标题分别为“开始”、“停止”;还有一个名为Timer1的计时器。程序运行时
假定有如下语句:answer$=MsgBox("String1",,"String2","String3",2)执行该语句后,将显示一个信息框,单击其中的"确定"按钮,则answer$的值为( )。
算法时间复杂度的度量方法是
假定有下面的程序:PrivateSubForm_Click()DimNAsIntegerN=InputBox("输入一个2位整数")Print(N-Int(N/10)*10)*10+Int(N/
下列叙述中正确的是()。
下面正确使用动态数组的是()。
下列特征中不是面向对象方法的主要特征的是()。
随机试题
水肿胀满,大便秘结,小便不利,首选药物是
患者,女,29岁。身高164cm,体重80kg,婚后2年未孕,15岁初潮,平素月经不规律,量稀少,痛经,故来不孕不育门诊就诊,妇科查体未见:异常,B超示多囊卵巢,男方精液常规示精液量2.0ml,精子总数12.3×106,活力7%。医生建议女方首先采取的
当胰头癌压迫胆总管导致阻塞时,不会发生黄疸,胆囊不会肿且无压痛,称为Courvoisier征阳性。()
关于《民事诉讼法》规定的期间制度,下列哪一选项是正确的?(卷三2012年真题试卷第38题)
户外照明和道路照明应符合()规定。
单代号网络图中箭线表示()。
背景资料:某机电安装公司承担了某化工装置安装工程,组建了施工项目部。2010年7月22日11时左右,施工作业队某焊工在离地面约10m高的钢结构顶部进行钢结构焊接工作。在操作过程中,该焊工在往侧向移动时脚踏在了一个探头跳板上,探头板侧翻,焊工不慎从操作平台
某企业现着手编制20×7年4月的现金收支计划。预计20×7年4月初现金余额为8000元;月初应收账款4000元,预计月内可收回80%;本月销货50000元,预计月内收款比例为50%;本月采购材料8000元,预计月内付款70%;月初应付账款余额5000元需在
认识对实践的指导作用表现在哪些方面?
Takingchargeofyourselfinvolvesputtingtorestsomeveryprevalentmyths.Atthetopofthelististhenotionthatintellig
最新回复
(
0
)