首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,包含两个窗体,名称分别为Form1、Form2。窗体上已有部分控件,请在Form1窗体上再添加一个名称为Text1的文本框,Text属性为空,Enable属性设置为False(如图所示),输入字符时文本框
(1)在考生文件夹下有一个工程文件sjt3.vbp,包含两个窗体,名称分别为Form1、Form2。窗体上已有部分控件,请在Form1窗体上再添加一个名称为Text1的文本框,Text属性为空,Enable属性设置为False(如图所示),输入字符时文本框
admin
2020-06-30
65
问题
(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全国计算机二级
相关试题推荐
下面描述中错误的是( )。
下列叙述中正确的是
有三个关系R,S和T如下:则由关系R和S得到关系T的操作是( )。
假定有下面的程序:PrivateSubForm_Click()DimNAsIntegerN=InputBox("输入一个2位整数")Print(N-Int(N/10)*10)*10+Int(N/
执行以下程序段:a$="VisualBasicProgramming"b$="C++"c$=UCase(Left$(a$,7))&b$&Right$(a$,12)后,变量c$的值为( )。
以下叙述中错误的是( )。
下列不一定是传值的虚实结合方式的选项是().
在考生文件夹中有一个工程文件sjt5.vbp。窗体外观如图所示。运行程序,单击“读数据”按钮,读入文件中的数据到字符串变量中并显示在Labe12标签中。单击“排序”命令按钮时,对读入的数据从小到大进行排序,并将排序结果在窗体的Labe14控件中显示。
要求在程序运行时,如果按住鼠标左键不放而移动鼠标,鼠标的位置坐标同步显示在窗体右上角的标签(名称为Label1)中,如右图所示,放开鼠标左键后,停止同步显示。下面可以实现此功能的程序是( )。
假定在某个事件过程中需要计算:y=3!+5!的值,下面最好的设计是
随机试题
儿童处于生长发育阶段,对饮食的需求不易受环境的影响。()
患者,女,38岁,每于经期抑郁,情绪不宁,胸闷胁胀,不思饮食,舌苔薄腻,脉弦细。
经阴道分娩时,为预防产后出血,静注麦角新碱应在下列何时
医德良心的描述正确的是
根据现行法律规定,我国现阶段的土地市场主要指()。
《物业管理条例》确定的基本制度包括()。
建筑安装工程费用的动态结算办法包括()。
经过“银行存款余额调节表”调整后的银行存款余额为()。
Onlythreestrategiesareavailableforcontrollingcancer:prevention,screeningandtreatment.Lungcancercausesmoredeaths
Veryoldpeopledoraisemoralproblemsforalmosteveryonewhocomesintocontactwiththem.Theirvalues—thiscan’tberepeate
最新回复
(
0
)