1、国家二级 VB机试（上机操作）模拟试卷 42及答案与解析 一、基本操作题 0 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 1 在名称为 Form1的窗体上画一个标签，名称为 L1，标题为 “业余爱好 ”，再画一个名称为 Ch1的复选框数组，含三个复选框，它们的 Index属性分别为 0、 1、 2，标题依次为 “体育 ”、 “音乐 ”、 “美术 ”，请设置复选框的属性，使其初始状态见表 3-1。 运行后的窗体如图 3-11所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1 vbp，窗 体文件名为 sjt1 frm。 2 在名称为 Form
2、1的窗体上画一个文本框，名称为 Text1；再建立一个下拉菜单，菜单标题为 “操作 ”，名称为 M1，此菜单下含有两个菜单项，名称分别为 Show和Hide，标题分别为 “显示 ”、 “隐藏 ”，请编写适当的事件过程，使得在运行时，单击“隐藏 ”菜单项，则文本框消失；单击 “显示 ”菜单项，则文本框显示出来。运行后的窗体如图 3-12所示。要求程序中不得使用变量，每个事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题 3 在名称为 Form1的窗体上画一个名称为 L1的标签，标题为 “口令 ”；画两个
3、文本框，名称分别为 Text1、 Text2，都没有初始内容；再画三个命令按钮，名称分别为C1、 C2、 C3，标题分别为 “显示口令 ”、 “隐藏口令 ”、 “复制口令 ”，在开始运行时，向 Text1中输入的所有字符，都显示 “*”，单击 “显示口令 ”按钮后，在 Text1中显示所有字符，再单击 “隐藏口令 ”后， Text1中的字符不变，但显示的都是 “?”，单击 “复制口令 ”后，把 Text1中的实际内容复制到 TeXt2中，如图 3-13所示。 要求： 在属性窗口中，把窗体的标题改为 “口令窗口 ”。 建立适当的事件过程，完成上述功能。每个过程中只允许写一条语句，且不能使用变量。
4、 存盘时，工程文件名为 sjt3 vbp，窗体文件名为 sjt3 frm。 4 在名称为： Form1的窗体上画一个名称为 P1的图片框，并利用属性窗口把考生目录中的图标文件 Open ico放到图片框中；再画一个通用对话框控件，名称为CD1，利用属性窗口设置相应属性，即打歼对话框时：标题为 “打开文件 ”，文件类型为 “Word文档 ”，初始目录为 C盘根目录。再编写适当的事 件过程，使得在运行时，单击 P1图片框，可以打开上述对话框。运行后的窗体如图 3-14所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt4 vbp，窗体文件名为 sjt4 frm。程序中不得使用任何变量。
5、 三、综合应用题 5 在考生文件夹下有工程文件 sjt5 vbp，窗体上有两个标题分别是 “读数据 ”和 “统计 ”的命令按钮，请添加一个名称为 Label1、标题为 “回文的个数为 ”的标签和一个名称为 Text1，初始值为空的文本框，如图 3-15所示。程序功能如下： 单击 “读数据 ”按钮，则将考生文件夹下 in5 dat文件的内容读到变量 s中。 单击 “统计 ”按钮，则统计 in5 dat文件 (该文件中仅含由空格间隔开的字母串 )中刚文的个数，并将统计的回文个数显示在 Text1文本框内。 (所谓回文是指顺读与倒读都一样的字符串，如 “recycer”)。 “读数据 ”按钮和 “统
6、计 ”按钮的 Click事件过程已经给出，请完善 Function过程 foundhuiwen的功能，实现上述程序功能。 注意：考牛不得修改窗体文件中已仃在的控件和程序，在结束程序运行之前，必须先进行统计，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后， 程序按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 42答案与解析 一、基本操作题 1 【正确答案】 审题分析 本题只需按要求画出控件数组，并设置其 Value属性。 操作步骤 步骤 1：新建一个 “标准 ExE”工程。 步骤 2：在窗体 Form1中加入一个标签和一个复选框，并用 “复制 ”和 “粘贴 ”的方法，生成包含三
7、个元素的复选框数组。 步骤 3：分别设置窗体和复选框数组中各元素的相关属性，其属性及值如表 4-5所示。 步骤 4：按要求将文件保存至考生文件夹中。 考点链接 选择控件、控件数组。 2 【正确答案】 审题分析 本题需用菜单设计器建立菜单，并编写 “显示 ”和 “隐藏 ”菜单项的单击事件过程控制文本框的 Visiblc属性变化。 操作步骤 步骤 1：新建一个 “标准 EXE”工程，在窗体 Form1中画一个文本框，在属性设置窗口中将其 Name属性值设置为 Text1。 步骤 2：选择【工具】 【菜单编辑器】命令，打开菜单设计器，如表 4-6中的设置建立菜单项。 步骤 3：打开代码编辑窗口，编写
8、以下事件过程： 参考代码： Private Sub hide Click() Text1 Visible=False End Sub Private Sub show_Click() Text1 ViSible=True End Sub 步骤 4：按要求将文件保存至考生文件夹中。 考点链接 菜单。 二、简单应用题 3 【正确答案】 审题分析 PasswordChar属性用于设置屏蔽文本框中内容的字符，要去掉对文本框中输入内容的屏蔽，需将其 PasswordChar属性值清空。该属性既可以在属性窗口设置，也可以在代码中进行设置。 操作步骤 步骤 1：新建一个 “标准 EXE”工程，如表 4-7在
9、窗体中画出控件并设置其相关属性。 步骤 2：在代码编辑窗口，分别编写三个按钮的单击事件过程。 参考代码： Private Sub C1_C1ick() Text1 PasSWOrdChar=“ “ End Sub Private Sub C2_C1ick() Text1 PaSSWOrdChar=“?“ End Sub Private Sub C3_C1ick() C3 Parent Text2 Text=Text1 Text End Sub Private Sub Form_Load() Text1 PaSswordChar=“*“ End Sub 步骤 3：按要求将文件保存至考生文件夹中。
10、 考点链接 文本控件。 4 【正确答案】 审题分析 本题需按要求在图片框的单击事件过程中，通过调用通用对话框的 ShowOpen方法实现。 操作步骤 步骤 1：新建一个 “标准 EXE”工程，如表 4-8在窗体中画出控件并设置其相关属性。 步骤 2：打开代码编辑窗口，编写如下事件过程。 参考代码： Private Sub P1_C1ick() CD1 ShowOpen End Sub 步骤3：按要求将文件保存至考生文件夹中。 注意：打开 “打开文件 ”对话框还可使用语句： cd1Open Action=1。 考点链接 通用对话框。 三、综合应用题 5 【正确答案】 审题分析 本题中自定义函数
11、foundhuiwen的功能是判断字符串参数P是否为回文，若是则返回函数值 True，否则返回函数值 False。根据回文的定义程序设计思路：在 For循环中按从两端到中间的顺序，分别用 Mid函数依次从字符串参数 P中同时取出两个字符，并比较这两个字符是否相同，若不相同则返回函数值 False，并用 ExitFunction语句退出自定义函数；否则继续往下比较直至循环结束。循环正常结束时，返回函数 值 True。 操作步骤 步骤 1：打开考生文件夹下的工程文件 sjt5 vbp，如表 4-9所示在窗体上画出控件并设置它们的相关属性。 步骤 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一 i，1)Then foundhUiwen=False Exit For End If Next End Functjon 步骤 3：按键运行程序，先单击 “读数据 ”按钮，再单击 “统计 ”按钮，最后单击窗体右上角的关闭按钮结束程序。 步骤 4：按要求将文件保存至考生文件夹中。 考点链接 常用内部函数、For循环结构。
