2. 计算机
  3. (1)在考生文件夹下有一个工程文件sjt3．vbp，包含2个窗体，名称分别为Forml、Form2。窗体上已有部分控件，请在Forml窗体上再添加1个名称为Textl的文本框，Text属性为空，Enable属性设置为False(如图所示)，输入字符时文本框

(1)在考生文件夹下有一个工程文件sjt3．vbp，包含2个窗体，名称分别为Forml、Form2。窗体上已有部分控件，请在Forml窗体上再添加1个名称为Textl的文本框，Text属性为空，Enable属性设置为False(如图所示)，输入字符时文本框

admin2019-03-14  34
问题 (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://kaotiyun.com/show/goUp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)