1、国家二级 VB机试（上机操作）模拟试卷 52及答案与解析 一、基本操作题 0 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 1 在名称为 Form1的窗体上建立一个名称为 Command1的命令按钮数组，含三个命令按钮，它们的 Index属性分别为 0、 1、 2，标题依次为 “是 ”、 “否 ”、 “取消 ”，每个按钮的高、宽均为 300、 800。窗体的标题为 “按钮窗口 ”。运行后的窗体如 3-63所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1 vbp，窗体文件名为 sjt1 frm。 2 在名称为 Form1的窗体上画一个名称
2、为 Sha1的形状控件，然后建立一个菜单，标题为 “形状 ”，名称为 shapeO，该菜单有两个子菜单，其标题分别为 “正方形 ”和“圆形 ”，其名称分别为 shape1和 shape2，如图 3-64所示，然后编写适当的程序。程序运行后，如果选择 “正方形 ”菜单项，则形状控件显示为正方形：如果选择 “圆形 ”菜单项，则窗体上的形状控件显示为圆形。 注意：程序中不能使用变量，每个事件过程中只能写一条语句。保存时必须存放在考生文件灭下，工程文件名为sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题 3 在考生文件夹下有一个工程文件 sjt3 vbp，窗体上已经有两个文本框，名称
3、分别为 Text1、 Text2；一个命令按钮，名称为 C1，标题为 “确定 ”；请画两个单选按钮，名称分别为 Op1、 Op2，标题分别为 “男生 ”、 “女生 ”：再画两个复选框，名称分别为 Ch1、 Ch2，标题分别为 “体育 ”、 “音乐 ”。请编写适当的事件过程，使得在运行时，单击 “确定 ”按钮后实现下面的操作： 根据选中的单选按钮，在 Text1中显示 “我是男生 ”或 “我是女生 ”。 根据选中的复选框，在 Text2中显 示 “我的爱好是体育 ”、 “我的爱好是音乐 ”或 “我的爱好是体育音乐 ”，如图 3-65所示。 注意：不得修改已经给出的程序和已有控件的属性。在结束程序
4、运行之前，必须选中一个单选按钮和至少一个复选框，并单击 “确定 ”按钮。必须使用窗体右上角的关闭按钮结束程序，否则无成绩。 4 在考生文件夹下有一个工程文件 sjt4 vbp。窗体上有一个名称为 List1的列表框，名称为 Timer1的计时器，名称为 Label1的标签，如图 3-66所示。请通过属性窗口向列表框添加四个项目，分别是 “第一项 ”、 “第二项 ”、 “第三项 ”、 “第四项 ”。程序运行后，将计时器的时间间隔设置为 1秒钟，每一秒钟从列表框中取出一个项目显示在 Label1的标签中，首先显示 “第一项 ”，然后，依次显示 “第二项 ”、 “第三项 ”、 “第四项 ”，如此循环
5、。 在给出的窗体文件中已经有了全部控件和程序，但不完整，请添加 List1中的项目，去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意：考生不得修改工程中已经存在的内容和控件属性，最后把修改后的文件按原文件名存盘。 三、综合应用题 5 在窗体上画一个文本框，名称为 Text1(可显示多行 )，然后再画三个命令按钮，名称分别 为 Command1、 Command2和 Command3，标题分别为 “读数 ”、 “统计 ”和 “存盘 ”，如图 3-67所示。程序的其功能是：单击 “读数 ”按钮，则把考生目录下的in5 txt文件中的所有英文字符放入 Text1(可多行显示 )；单击 “统计
6、 ”按钮，找出并统计英文字母 i、 j、 k、 l、 m、 n(不区分大小写 )各自出现的次数；单击 “存盘 ”按钮，将字母 i n出现次数的统计结果依次存到考生目录下的顺序文件 out5 txt中。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt5 vbp，窗体文件名为 sjt5 frm。 国家二级 VB机试（上机操作）模拟试卷 52答案与解析 一、基本操作题 1 【正确答案】 审题分析 本题只需按题目要求画出含三个元素的按钮数组，并分别设置 Caption属性。 操作步骤 步骤 1：新建一个 “标准 EXE”工程，如表 4-36在窗体中用 “复制 ”和 “粘贴 ”画出控件数组并设
7、置属性。 步骤 2：按要求将文件保存至考生文件夹中。 考点链接 控件数组、控件基本操作。 2 【正确答案】 审题分析 要实现本题中的功能，应在 “正方形 ”菜单项的 Click事件过程中，令 Sha1的 Shape属性为 1，在 “圆形 ”菜单项的 Click事件过程中，令 Sha1的 Shape属性为 3。 操作步骤 步骤 1：新建一个 “标准 EXE”工程，在窗体 Form1中画一个名为 Sha1的形状控件。 步骤 2：选择【工具】 【菜单编辑器】命令，打开菜单设计器，如表 4-37所示，设置建立菜单项。 步骤 3：打开代码编辑窗口，编写菜单命令的单击事件过程。 参考代码： PriVate
8、 Sub Shape1_Click() He Sha1 Shape=1 End Sub PriVate Sub Shape2_Click() Form1 Sha1=3 End Sub 步骤 4：按要求将文件保存至考生文件夹中。 考点链接 图形控件、菜单。 二、简单应用题 3 【正确答案】 审题分析 根据题目要求，在本题的程序设计上首先以 Op1是否选中作为 IfThenElse 语句的条件，由此分出两种情况： Op1被选中或 Op2被选中。在条件为真 (即 Op1被选中 )时文本框 1中显示 “我是男生 ”，否则显示 “我是女生 ”；接下来分别判断两个复选框是否选中并相应在文本框 2上显示内容
9、。以上判断和显示操作均在 C1的 Click事件中完成。 操作步骤 步骤 1：打开考生文件夹下的工程文件 sjt3 vbp。 步骤 2：在窗体 Form1中加入两个单选按钮和两个复选框，分别设置它们的相关属性，属性及其 值如表 4-38所示。 步骤 3：打开代码编辑窗口输入如下代码： 参考代码： Private Sub C1_Click() Dim a As Strina a=“我是 “ If Op1 Value Then Text1 Text=a Op1 Caption Else Text1 Text=a Op2 Caption End If a=“我的爱好是 “ If Ch1 Value=
10、1 Then Text2 Text=a Ch1 CaDtion a=Text2 Text End If If Ch2 Value=1 Then Text2 Text=a Ch2 CaDtion End If End Sub 步骤 4：按键运行程序，先选中选中一个单选按钮和至少一个复选框，并单击 “确定 “按钮，然后单击窗体右上角的关闭按钮结束程序。 步骤 5：按要求将文件保存至考生文件夹中。 考点链接 选择控件、 If选择结构。 4 【正确答案】 审题分析 要实现本题中的功能，在窗体的 Load事件过程中，令全局变量 i的初值为 0，然后设置计时器的 Interval属性为 1000并启用计时
11、器；在计时器的 Timer事件中把列表框的第 i项 显示在标签中，接下来令 i+1，一旦 i超过了 3就将其重新置 0以便实现循环显示。 操作步骤 步骤 1：打开考生文件夹中的本题工程文件 sjt4 vbp，通过属性窗口向列表框添加四个项目，分别是： “第一项 ”、 “第二项 ”、 “第三项 ”、 “第四项 ”。 步骤 2：在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： i=0 Timer1 Interval=1000 Label1 Caption=List1 List(i) 步骤 3：按要 求将文件保存至考生文件夹中。 考点链接 计时器、选择结构。 三、
12、综合应用题 5 【正确答案】 审题分析 程序设计思路：在 “读数 ”按钮的单击事件过程中，用Open语句以 Input方式打开数据文件 in5 txt，并用 Input()函数读出所有字符后显示在文本框中；在 “统计 ”按钮的单击事件过程中，通过 For循环用 Mid函数逐一取出文本框中的字符并转换成小写，用 Select Case语句对取出的字符进行检查，并用窗体数组变量 sum(1) sum(6)记录字母 i、 j、 k、 l、 m、 n出现的次数。 在 “存盘 ”按钮的单击事件过程中，用 Open语句以 Output方式打开数据文件 out5 txt，并通过 For循环用 Print#方
13、法逐一将数组中的元素存入该文件。 操作步骤 步骤 1：新建一个 “标准 EXE”工程，如表 4-39所示，在窗体中画出控件并设置其相关属性。 步骤 2：打开代码编辑窗口，编写相应事件过程。 参考代码： OptiOn Base 1 Dim Sum(6)As Integer Prirate Sub Command1_C1ick() Open App Path “ in5 txt： “For Input As #1 Text1 Text=Input(LOF(1)， #1) Close #1 End Sub Private Sub Command2_Click() For i=1 To 6 sum(i
14、)=0 Next i If Len(Text1 Text)=0 Then NsgBox“请先使用 “读数 ”功能 !“ Else For i=1 To Len(Text1 Text) c=LCase(Mid(Text1 Text， i， 1) SeleCt CaSe c Case “i“ sum(1)=sum(1)+1 Case “j“ sum(2)=sum(2)+1 CaSe “k“ sum(3)=sum(3)+1 Case “1“ sum(4)=sum(4)+1 Case “m“ sum(5)=sum(5)+1 Case “n“ sum(6)=sum(6)+1 End Select Next i End If End Sub Private Sub Command3_Click() Open App Path “out5 txt“For Output As #1 For i=1 To 6 print #1， sum(i) Next i Close #1 End Sub 步骤 3：按要求将文件保存至考生文件夹中。 考点链接 多分支结构、 For循环结构、顺序文件。
