1、国家二级 VB机试（上机操作）模拟试卷 289及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Form1的窗体上画一个标签，名称为 L1，标题为 “业余爱好 ”，再画一个名称为 Ch1的复选框数组，含三个复选框，它们的 Index属性分别为 0、 1、 2，标题依次为 “体育 ”、 “音乐 ”、 “美术 ”，请设置复选框的属性，使其初始状态见表 31。运行后的窗体如图 383所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1 vbp，窗体文件名 为sjt1 frm。 (2)在名称为 Form1
2、的窗体上画一个文本框，名称为 Text1；再建立一个下拉菜单，菜单标题为 “操作 ”，名称为 M1，此菜单下含有两个菜单项，名称分别为 Show和 Hide，标题分别为 “显示 ”、 “隐藏 ”，请编写适当的事件过程，使得在运行时，单击 “隐藏 ”菜单项，则文本框消失；单击 “显示 ”菜单项，则文本框显示出来。运行后的窗体如图 384所示。要求程序中不得使用变量，每个事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2 vbp，窗体文件名为 sjt2 frm。二、简单应用题 2 (1)在名称为 Form1的窗体上画一个名称为 L1的标签，标题为 “口令 ”：画两个
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 在考生文件夹下有工程文件 sit5 vbp，窗体上有两个标题分别是 “读数据 ”和 “统计 ”的命令按钮，请添加一个名称为 Label1、标题为 “回文的个数为 ”的标签和一个名称为 Text1，初始值为空的文本框，如图 387所示。程序功能如下： 单击 “读数据 ”按钮，则将考生文件夹下 in5 dat文件的内容读 到变量 s中。 单击 “统计 ”按钮，则统计 in5 dat文件 (该文件中仅含由空格间隔开的字母串 )中回文的个数，并将统计的回文个数显示在 Text1文本框内。 (所谓回文是指顺读与倒读都一样的字符串，如 “recycer”)。 “读数据 ”按钮和 “统计
6、”按钮的 Click事件过程已经给出，请完善 Function过程 foundhuiwen的功能，实现上述程序功能。注意：考生不得修改窗体文件中已存在的控件和程序，在结束程序运行之前，必须先进行统计，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。国家二级 VB机试（上机操作）模拟试卷 289答案与解析 一、基本操作题 1 【正确答案】 第 1小题步骤 1：新建一个 “标准 EXE”工程。步骤 2：在窗体Form1中加入一个标签和一个复选框，并用 “复制 ”和 “粘贴 ”的方法，生成包含三个元素的复选框数组。步骤 3：分别设置窗体和复选框数组中各元素的相关属性，其属
7、性及值如表 451所示。 步骤4：按要求将文件保存至考生文件夹中。第 2小题步骤 1：新建一个 “标准 EXE”工程，在窗体 Form1中画一个文本框，在属性设置窗口中将其 Name属性值设置为Text1。步骤 2：选择 工具 菜单编辑器 命令，打开菜单设计器，如表 452中的设置建立菜单项。 步骤 3：打开代码编辑窗口，编写以下事件过程。参考代码： Private Sub hide_C1ick()Text1 Visible=FalseEnd SubPrivate Sub show_C1ick()Text1 ViSible=TrueEnd Sub步骤 4：按要求将文件保存至考生文件夹中。 【试
8、题解析】 第 1小题：本题只需按要求画出控件数组，并设置其 Value属性。 第 2小题：本题需用菜单设计器建立菜单，并编写 “显示 ”和 “隐藏 ”菜单项的单击事件过程控制文本框的 Visible属性变化。 二、简单应用题 2 【正确答案】 第 1小题步骤 1：新建一个 “标准 EXE”工程，如表 453在窗体中画出控件并设置其相关属性。 步骤2：在代码编辑窗口，分别编写三个按钮的单击事件过程。参考代码： Private Sub C1_Click()Text1 PasswordChar=“ “End SubPrivate Sub C2_Click()Text1 PasswordChar=“?
9、“End SubPrivate Sub C3_Click()C3 Parent Text2 Text=Text1 TextEnd SubPrivate Sub Form Load()Text1 PasswordChar=“*“End Sub步骤 3：按要求将文件保存至考生文件夹中。第 2小题步骤 1：新建一个 “标准 EXE”工程，如表 454在窗体中画出控件并设置其相关属性。 步骤 2：打开代码编辑窗 口，编写如下事件过程。参考代码： Private Sub P1_Click()CD1 ShowOpenEnd Sub步骤 3：按要求将文件保存至考生文件夹中。注意：打开 “打开文件 ”对话框还
10、可使用语句： cdlOpen Action=1。 【试题解析】 第 1小题： PasswordChar属性用于设置屏蔽文本框中内容的字符，要去掉对文本框中输入内容的屏蔽，需将其 PasswordChar属性值清空。该属性既可以在属性窗口设置，也可以在代码中进行设置。 第 2小题：本题需按要求在图片框的单击事件过程中，通过调用通用对 话框的ShowOpen方法实现。 三、综合应用题 3 【正确答案】 步骤 1：打开考生文件夹下的工程文件 sjt5 vbp，如表 455所示在窗体上画出控件并设置它们的相关属性。步骤 2：打开代码编辑窗口，在指定位置编写 foundhuiwen函数的过程。参考代码：
11、 Function foundhuiwen(p As String)foundhuiwen=Truek=Len(p)For i=1To k 2If Mid(p， i， 1) Mid(p， k+1-i，1)Thenfoundhuiwen=FalseExit ForEnd IfNextEnd Function步骤 3：按 F5键运行程序，先单击 “读数据 ”按钮，再单击 “统计 ”按钮，最后单击窗体右上角的关闭按钮结束程序。步骤 4：按要求将文件保存至考生文件夹中。 【试题解析】 本题中自定义函数 foundhuiwen的功能是判断字符串参数 p是否为同文，若是则返回函数值 True，否则返回函数值 False。根据回文的定义程序设计思路：在 For循环中按从两端到中间的顺序，分别用 Mid函数依次从字符串参数p中同时取出两个字符，并比较这两个字符是否相同，若不相同则返回函数 值False，并用 Exit Function语句退出自定义函数：否则继续往下比较直至循环结束。循环正常结束时，返回函数值 True。
