1、国家二级 VB机试（上机操作）模拟试卷 454及答案与解析 一、基本操作题 1 (1)在名称为 Form1的窗体上画 1个名称为 Framel、标题为 “学位 ”的框架；框架内有 1个名称为 Optionl的控件数组，该控件数组含有 4个标题分别为 “学士 ”、 “硕士 ”、 “博士 ”和 “其他 ”的单选按钮，它们的 Index属性分别为 0、 1、 2、 3，且标题为 “硕士 ”的单选按钮为选中状态。运行后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1 vbp，窗体文件名为 sjt1 frm。(2)在名称为 Form1、 标题为 “练习 ”的窗体上，画 1个名
2、称为 Imagel的图像框，该图像框能自动调整其中图片内容的大小，并装入考生文件夹下名称为 “风景 ”的图片文件。再画 2个名称分别为 Commandl和Command2，标题分别为 “加宽 ”和 “加高 ”的命令按钮。如图所示。 要求：编写两个按钮适当的事件过程，使得单击 “加宽 ”按钮时， Imagel的宽度增加 15；单击 “加高 ”按钮时， Imagel的高度增加 15。在程序中不得使用变量，每个事件过程中只能写一条语句。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3
3、 vbp。程序运行后，单击 “读入数据 ”按钮，可将考生文件夹下 in3 txt文件中的所有英文单词读入，并在 Text1文本框中显示；单击 “插入列表框 ”按钮，则按顺序将每个单词作为一项添加到 List1列表框中 (如图所示 )。 在 in3 txt文件中，每个单词之间用一个空格字符隔开，最后一个单词的后而没有空格。已经给出了所有控件和程序，但程序不完整。要求：请去掉程序中的注释符，把程序中的 ?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存上程文件和窗体文件。(2)在考生文件夹下有一个工程文件 sjt4 vbp，窗体上已经添加所有控件，如图所
4、示。在程序运行时，如果单击 “开始 ”按钮，则每隔 0 1秒窗体上的汽车图标向右移动一次 (初始状态下不移动 )；如果单击 “停止 ”按钮，则停止移动。请完成以下工作： 没皆适当控件的适当属性，使得每 0 1秒汽车图标向右移动一次，而初始状态下不移动。 请去掉程序中的注释符，把程序中的 ?改为正确的内容。 为两个命令按钮编写适当的事件过程，最后以原文件名存盘。 注意 ：不得修改已经给出的程序。编写事件的过程中不能使用变量，每个事件过程中只能有一条语句。 三、综合应用题 3 在考生文件夹下有一个工程文件 Sjt5 vbp，窗体如图所示。运行程序时，从考生文件夹数据文件中读取学生的成绩 (均为整数
5、 )。要求编写程序，统计总人数，同时统计不及格、 60 69、 70 79、 80 89及 90 100各分数段的人数，将统计结果显示在相应的文本框中。结束程序之前，必须单击 “保存 ”按钮，保存统计结果。注意：不能修改程序的其他部分和控件属性。程序调试通过后，运行程序，将统计结果显示在文本框中 ，再按 “保存 ”按钮，否则将没有成绩，最后将修改后的文件按原文件名进行存盘。 国家二级 VB机试（上机操作）模拟试卷 454答案与解析 一、基本操作题 1 【正确答案】 (1)步骤 1：新建一个窗体，在窗体上添加一个框架控件，并按照表4 1设置控件的属性，结果如图 4 1所示。步骤 2：在建立好的框
6、架控件上依次添加 4个单选按钮，并按照表 4 2设置控件属性，结果如图 4 2所示。为了使 “硕士 ”单选按钮处于选中状态，需要将其的 value属性值设置为 True。步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2)步骤 l：新建一个窗体，并设置窗体的相关属性，如表4 3所示。 步骤 2：在建立好的窗体上添加一个 Image控件，并按照表 4 4设置控件属性，结果如图 4 3所示。步骤 3：向窗体上添加两个按钮控件，按钮名称分别为 Command1和 Command2，并按照表 4 5设置两个按钮控件的相关属性，运行结果如图 4 4所示。 步骤4：双击 “加宽 ”按钮，打开代码编
7、辑窗口，在代码编辑窗口指定位置编写以下代码。 编写程序代码如下： 参考答案 Private Sub Command1_Click() Image1 Width=Imagel Width+15 End Sub 步骤 5：双击 “加高 ”按钮，打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。 编写程序代码如下： 参考答案 Private Sub Command2_Click() Image1 Height=Image1 Height+15 End Sub 步骤5：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 (1)新建窗体，添加框架控件，在框架控件中依次添加四个单选按钮，并将四个
8、单选按钮设置为控件数组，然后修改相关控件的属性，以完成题目所需要 求。 (2)新建窗体，在窗体中添加一个 Image控件和两个 Command按钮控件，向Image控件中添加图片，并设置 stretch属性为 True，当单击 “加宽 ”按钮时，将Image控件的 width属性加 15，当单击 “加高 ”按钮时，将 Image控件的 teigth属性加 15。 二、简单应用题 2 【正确答案】 (1)步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 参考答案 Private Sub Command1_Click() Dim st $
9、ch $ Open App Path & “ in3 txt“For Input As #1 打开文件 Do While Not EOF(1)文件指针是否到达文件末尾 Input #1， ch达到文件末尾返回 true，否则返回 false st=st & ch将读出的数据加到原有数据末尾 Loop Close #1 关闭文件 Text1=st将内容显示在文本框中 End Sub Private Sub Command2_Click() Dim st $， word$， c $ St=Text1 n=Len(St) FOr k=1 To n c=Mid(st， k， 1)从 st中依次取出 1
10、个字符进行比较 If c“ “，其中 st=Text1 Text。每添加一个单词后清空变量 word，将所取字符的起始位置加 1，再次执行循环得到下一个单词。 (2)首先通过计时器的 Interval和 Enabled属性设置计时器每次改变的时间间隔和计时器是否可用，根据题意，在初始状态下 Enabled属性设置为 False，在计时器的 Timer事件过程中，通过图片框的 Left属性值的改变来实现自左向右移动的功能。在 “开始 ”按钮的单击事件过程中应启用计时器，在 “停止 ”按钮的单击事件过程中必须停止计时器。 三、 综合应用题 3 【正确答案】 步骤 1：打开本题工程文件。 步骤 2：
11、打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。 参考答案 For i=1 To n 环判断分数的范围，当满足某个条件时则分别统计 If arr(i)=60 And arr(i)=70 And arr(1)=80 And arr(i)=90 And arr(i)=100 Then Text6 =Val(Text6) +1 End If Text1=Val(TOXtl)+1显示统计人数 Next 步骤 3：调试并运行程序，关闭程序后按题目要求存盘 。 【试题解析】 在窗体装入时，通过文件操作和 Do While语句从数据文件中读取学生的成绩，并把成绩的值装入数组 arr(n)。单击 “统计 ”按钮通过 For循环语句遍历数组，并用 If语句对数组中存储的数值进行判断，使用 Val()函数完成字符向数值类型的转换，通过累加统计不及格、 60 69、 70 79、 80 89及 90 100各分数段的人数，并将各分数段的人数统计结果和总人数显示在相应的文本框中。单击 “保存 ”按钮，将统计结果使用 Print方法，并通过文件操作保存在文本文件中，弹出 MsgBox对话框，提示 “保存成功 !”。
