2012年计算机二级VB上机试题第二十五套

1. 基本操作（2小题，每小题15分，共计30分）

　　注意：下面出现的“考生文件夹”均为%USER%

　　请根据以下各小题的要求设计Visual Basic应用程序（包括界面和代码）。

　　（1）在名称为Form1 的窗体上画一个标签，名称为L1，标题为“业余爱好”，再画一个名称为Ch1的复选框数组，含3个复选框，它们的Index属性分别为0、1、2，标题依次为“体育”、“音乐”、“美术”，请设置复选框的属性，使其初始状态如下表所示：

　　体育 选中 可用

　　音乐 未选中 不可用

　　美术 未选中 可用

　　运行后的窗体如图所示。

　　*注意：

　　存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。

　　解题思路：

　　启动Visual Basic系统，创建一个Form1窗体。

　　在该窗体上画一个标签控件，通过其属性窗口将名称设为L1，标题（Caption属性）设为“业余爱好”。画一个复选框控件，通过对复选框控件的复制产生复选框控件数组，共有三个复选框，通过其属性窗口将名称设为Ch1，Index属性分别设为0、1、2，按顺序将其标题（Caption属性）分别设为“体育”、“音乐”、“美术”，由于题目要求“体育”复选框处在选中状态（Value属性）设为1，要求“体育”、“美术”复选框处在可用状态（Enabled属性）分别设为True。

　　参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt1.vbp、sjt1.frm、sjt1.vbw

　　请把这些文件复制到c:\wexam\26990001中，然后打开sjt1.vbp文件并运行。

　　（2）在名称为Form1的窗体上画一个文本框，名称为Text1；再建立一个下拉菜单，菜单标题为“操作”，名称为M1，此菜单下含有两个菜单项，名称分别为Show和Hide，标题分别为“显示”、“隐藏”，请编写适当的事件过程，使得在运行时，单击“隐藏”菜单项，则文本框消失；单击“显示”菜单项，则文本框重新出现。运行后的窗体如图所示。要求程序中不得使

　　用变量，每个事件过程中只能写一条语句。

　　*注意：

　　存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。

　　解题思路：

　　启动Visual Basic系统，创建一个Form1窗体。

　　在该窗体上画一个文本框控件，通过其属性窗口将名称设为Text1。通过菜单编辑器建立一个主菜单，在菜单编辑器的标题处输入“操作”，名称处输入M1，在该菜单下有二个子菜单，在菜单编辑器的标题处分别输入“显示”、“隐藏”，名称处分别输入Show和Hide。

　　单击“显示”按钮（即运行Click事件过程），在该Click事件过程中加入语句：

　　Private Sub show_Click()

　　Text1.Visible = True

　　End Sub

　　单击“隐藏”按钮（即运行Click事件过程），在该Click事件过程中加入语句：

　　Private Sub hide_Click()

　　Text1.Visible = False

　　End Sub

　　参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt2.vbp、sjt2.frm、sjt2.vbw

　　请把这些文件复制到c:\wexam\26990001中，然后打开sjt2.vbp文件并运行。

2. 简单应用（2小题，每题20分，计40分）

　　注意：下面出现的“考生文件夹”均为%USER%

　　（1）在名称为Form1 的窗体上画一个名称为L1的标签，标题为“口令”；画两个文本框，名称分别为Text1、Text2，都没有初始内容；再画三个命令按钮，名称分别为C1、C2、C3，标题分别为“显示口令”、“隐藏口令”、“复制口令”，在开始运行时，向Text1中输入的所有字符，都显示“*”，单击“显示口令”按钮后，在Text1 中显示所有字符，再单击“隐藏口令”后，Text1中的字符不变，但显示的都是“？”，单击“复制口令”后，把Text1中的实际内容复制到Text2中，如图所示。

　　要求：

　　1）在属性窗口中，把窗体的标题改为“口令窗口”。

　　2）建立适当的事件过程，完成上述功能。每个过程中只允许写一条语句

　　，且不能使用变量。

　　存盘时，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。

　解题思路：

　　启动Visual Basic系统，创建一个Form1窗体。

　　在该窗体上画一个标签，通过其属性窗口将名称设为L1，标签中的内容（Caption属性）设为“口令”。画二个文本框，通过其属性窗口将名称分别设为Text1和Text2，文本框中的初始内容（Text属性）均设为空。画三个命令按钮，通过其属性窗口将名称分别设为C1、C2和C3，标题（Caption属性）分别设为“显示口令”、“隐藏口令”、“复制口令”。

　　为对实现在开始运行时，向Text1中输入的所有字符都能显示“*”的功能，有两个地方能实现该功能。一是通过Text1属性窗口将PasswordChar属性设为“*”即可；另一个是在Form_Load事件中加入Text1.PasswordChar

　　= "*"语句即可。

　　单击“显示口令”命令按钮，即在Click事件过程中加入语句：Text1.PasswordChar = ""，这样即可在 Text1

　　中显示所有字符。

　　单击“隐藏口令”命令按钮，即在Click事件过程中加入语句：Text1.PasswordChar = "?"，这样Text1中

　　的字符内容不变，但显示的都是“？”。

　　单击“复制口令”命令按钮，即在Click事件过程中加入语句：Text2.Text = Text1.Text，这样Text2中的

　　内容就是Text1中的内容，并能显示出字符。

　　此外通过Form1窗体的属性窗口将其标题（Caption属性）设为“口令窗口”。

　　参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt3.vbp、sjt3.frm、sjt3.vbw

　　请把这些文件复制到c:\wexam\26990001中，然后打开sjt3.vbp文件并运行。

　　（2）在名称为Form1 的窗体上画一个名称为P1的图片框，并利用属性窗口把考生目录中的图标文件Open.ico放到图片框中；再画一个通用对话框控件，名称为CD1， 利用属性窗口设置相应属性，即打开对话框时：标题为“打开文件”，文件类型为“Word文档”，初始目录为 C盘根目录。再编写适当的事件过程，使得在运行时，单击P1图片框，可以打开上述对话框。运行后的窗体如图所示。

　　*注意：

　　存盘时必须存放在考生文件夹下，工程文件名为sjt4.vbp，窗体文件名为sjt4.frm。程序中不得使用任何变量。

　　解题思路：

　　启动Visual Basic系统，创建一个Form1窗体。

　　该窗体上画一个图片框控件，通过其属性窗口将名称设为P1，使用Picture属性装入Open.ico图标文件。画一个通用对话框控件，通过其属性窗口将名称设为CD1，DialogTitle属性设为打开文件，Filter属性设为Word文档，InitDir属性设为"c:\"。

　　单击图片框控件（即运行Click事件过程），在该Click事件过程中加入语句：

　　Private Sub P1_Click()

　　CD1.ShowOpen

　　End Sub

　　参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt4.vbp、sjt4.frm、sjt4.frx、sjt4.vbw

　　请把这些文件复制到c:\wexam\26990001中，然后打开sjt4.vbp文件并运行。

3. 综合应用（1小题，计30分）

　　注意：下面出现的“考生文件夹”均为%USER%

　　（1）在考生文件夹下有工程文件sjt5.vbp，窗体上有二个标题分别是“读数据”和“统计”的命令按钮，请添加一个名称为Label1、标题为“回文的个数为”的标签和一个名称为Text1，初始值为空的文本框，如图所示。

　　程序功能如下：

　　1）单击“读数据”按钮，则将考生文件夹下in5.dat文件的内容读到变量s中；

　　2）单击“统计”按钮，则统计in5.dat文件（该文件中仅含由空格间隔开的字母串）中回文的个数，并将统计的回文个数显示在Text1文本框内。（所谓回文是指顺读与倒读都一样的字符串，如“recycer”）“读数据”和“统计”按钮的Click事件过程已经给出， 请完善Function过程foundhuiwen的功能，实现上述程序功能。

　　注意：

　　考生不得修改窗体文件中已存在的控件和程序，在结束程序运行之前，必须先进行统计，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。

　　解题思路：

　　启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt5.vbp，相应的窗体文件名为sjt5.frm。

　　由于所提供的窗体控件不完整，在该窗体上画一个标签控件，通过其属性窗口将名称设为Label1，标题（Caption属性）设为"回文的个数为"。画一个文本框控件，通过其属性窗口将名称设为Text1，文本内容（Text属性）设为空。

　　函数foundhuiwen用于判断字符串是否为回文，在该函数过程中加入语句：

　　Function foundhuiwen(p As String)

　　foundhuiwen = True

　　k = Len(p)

　　For i = 1 To k / 2

　　If Mid(p, i, 1) <> Mid(p, k + 1 - i, 1) Then

　　foundhuiwen = False

　　Exit For

　　End If

　　Next

　　End Function

　　参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt5.vbp、sjt5.frm、sjt5.vbw、out5.txt

　　请把这些文件复制到c:\wexam\26990001中，然后打开sjt5.vbp文件并运行。