1、国家二级 VB机试（上机操作）模拟试卷 387及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Form1的窗体上画一个标签，名称为 L1，标题为 “业余爱好 ”，再画一个名称为 Ch1的复选框数组，含三个复选框，它们的 Index属性分别为 0、 1、 2，标题依次为 “体育 ”、 “音乐 ”、 “美术 ”，请设置复选框的属性，使其初始状态见表 31。运行后的窗体如图 383所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1 vbp，窗 体文件名为 sjt1 frm。 (2)在名称为 For
2、m1的窗体上画一个文本框，名称为 Text1；再建立一个下拉菜单，菜单标题为 “操作 ”，名称为M1，此菜单下含有两个菜单项，名称分别为 Show和 Hide，标题分别为 “显示 ”、“隐藏 ”，请编写适当的事件过程，使得在运行时，单击 “隐藏 ”菜单项，则文本框消失；单击 “显示 ”菜单项，则文本框显示出来。运行后的窗体如图 384所示。要求程序中不得使用变量，每个事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题 2 (1)在名称为 Form1的窗体上画一个名称为 Ll的标签，标题为 “口令 ”；画
3、两个文本框，名称分别为 Text1、 Text2，都没有初始内容；再画三个命令按钮，名称分别为 C1、 C2、 C3，标题分别为 “显示口令 ”、 “隐藏口令 ”、 “复制口令 ”，在开始运行时，向 Text1中输入的所有字符，都显示 “*”，单击 “显示口令 ”按钮后，在 Text1中显示所有字符，再单击 “隐藏口令 ”后， Text1中的字符不变，但显示的都是 “?”，单击 “复制口令 ”后，把 Text1中的实际内容复制到 Text2中，如 图 385所示。要求： 在属性窗口中，把窗体的标题改为 “口令窗口 ”。 建立适当的事件过程，完成上述功能。每个过程中只允许写一条语句，且不能使用变
4、量。 存盘时，工程文件名为 sjt3 vbp，窗体文件名为sjt3 frm。 (2)在名称为 Form1的窗体上画一个名称为 P1的图片框，并利用属性窗口把考生目录中的图标文件 Open ico放到图片框中；再画一个通用对话框控件，名称为 CD1，利用属性窗口设置相应属性，即打开对话框时：标题为 “打开文件 ”，文件类型为 “Word文档 ”，初始目录为 C盘根目录。再编写适当的事 件过程，使得在运行时，单击 P1图片框，可以打开上述对话框。运行后的窗体如图 386所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt4 vbp，窗体文件名为sjt4 frm。程序中不得使用任何变量。
5、三、综合应用题 3 在考生文件夹下有工程文件 sjt5 vbp，窗体上有两个标题分别是 “读数据 ”和 “统计 ”的命令按钮，请添加一个名称为 Labe11、标题为 “回文的个数为 ”的标签和一个名称为 Text1，初始值为空的文本框，如图 387所示。程序功能如下： 单击“读数据 ”按钮，则将考生文件夹下 in5 dat文件的内容读到变量 s中。 单击 “统计 ”按钮，则统计 in5 dat文件 (该文件中仅含由空格间隔开的字母串 )中回文的个数，并将统计的回文个数显示在 Text1文本框内。 (所谓回文是指顺读与倒读都一样的字符串，如 “recycer”)。 “读数据 ”按钮和 “统计 ”
6、按钮的 Click事件过程已经给出，请完善 Function过程 foundhuiwen的功能，实现上述程序功能。注意：考生不得修改窗体文件中已存在的控件和程序，在结束程序运行之前，必须先进行统计，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 387答案与解析 一、基本操作题 1 【正确答案】 (1)【操作步骤】 步骤 1：新建一个 “标准 EXE”工程。 步骤 2：在窗体 Form1中加入一个标签和一个复选框，并用 “复制 ”和 “粘贴 ”的方法，生成包含三个元素的复选框数组。 步骤 3：分别设置窗体和复选框数组中各元素
7、的相关属性，其属性及值如表 45l所示。步骤 4：按要求将文件保存至考生文件夹中。 (2)【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，在窗体 Form1中画一个文本框，在属性设置窗口中将其 Name属性值设置为Text1。 步骤 2：选择【工具】 【菜单编辑器】命令，打开菜单设计器，如表452中的设置建立菜单项。步骤 3：打开代码编辑窗口，编写以下事件过程。参考代码： Private Sub hide_CliCk() Text1 Visible FalseEnd SubPrivate Sub show_Click() Text1 Visible True End Sub 步骤 4：
8、按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 (1)【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表 453在窗体中画出控件并设置其相关属性。步骤 2：在代码编辑窗口，分别编写三个按钮的单击事件过程。参考代码： Private Sub C1_Click() Text1 PaSSWOrdChar “ “End Sub Private Sub C2_Click() Text1 PaSSWOrdChar “?“End Sub Private Sub C3_Click() C3 Parent Text2 Text Text1 Text End Sub Private
9、Sub Form_Load() Text1 PasswordChar “*“End Sub 步骤 3：按要求将文件保存至考生文件夹中。 (2)【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表 454在窗体中画出控件并设置其相关属性。步骤 2：打开代码编辑窗口，编写如下事件过程。参考代码： Private Sub P1_Click()CD1 ShowOpenEnd Sub 步骤 3：按要 求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹下的工程文件 sjt5 vbp，如表 455所示在窗体上画出控件并设置它们的相关属性。步骤 2：打开代码编辑窗口，在指定位置编写 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 _,1)Then foundhUiwen False Exit For End If Next End Function 步骤3：按键运行程序，先单击 “读数据 ”按钮，再单击 “统计 ”按钮，最后单击窗体右上角的关闭按钮结束程序。 步骤 4：按要求将文件保存至考生文件夹中。
