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

admin2020-06-30 32

问题 (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全国计算机二级

相关试题推荐

随机试题

最新回复(0)