1、国家二级 VB机试（上机操作）模拟试卷 77及答案与解析 一、基本操作题 0 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 1 在名称为 Form1、标题为 “显示记录 ”的窗体上画一个名称为 Text1的文本框，其初始内容为空；再画一个名称为 Command1的命令按钮数组 (下标从 0开始，有 4个按钮，其对应的标题分别为 “上一条记录 ”、 “下一条记录 ”、 “第一条记录 ”、 “最后一条记录 ”)，程序执行时的效果如图 3-183所示，且程序执行时按下回车键则相当于、单击 “下一条记录 ”按钮。请 设置相应属性。 注意：存盘时，将文件保存至考牛
2、文件火下，且窗体文件名为 sjt1 frm，工程文件名为sjt1 vbp。 2 在名称为 Form1的窗体上，画一个名称为 Label1的标签，其标题为 “等级考试 ”，能根据标题内容自动调整标签的大小，外观如图 3-184所示。再画一个名称为Timer1的计时器，其 Interval属性设为 0， Enabled属性设为 True。 要求：编写窗体 Load事件过程和计时器 Timer事件过程，使得程序运行时，每隔一秒标签交替隐藏或显示一次。 注意：存盘时，将文件保存至考生文件 夹下，窗体文件名为 sjt2 frm，工程文件名为 sjt2 vbp。要求程序中不得使用变量，每个事件过程中只能写
3、一条语句 (不得使用选择语句或循环语句 )。 二、简单应用题 3 在考生文件夹下有工程文件 sjt3 vbp。程序运行时的窗体如图 3-185(a)所示。输入商品名称后，选中一种付款方式，则 “成交 ”按钮变为可用，选择一种或多种 “服务 ”后，单击 “成交 ”按钮，则把相应信息显示在下面的图片框中，如图 3-185(b)所示。若不选任何 “服务 ”，则显示结果如图 3-185(c)所示。单击 “放弃 ”按钮，则恢复到图 (a)状态。 程序已经给出但不完整，请将其中的注释符去掉，把 ?改为正确的内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘
4、。 4 在考生文件夹下有工程文件 sjt4 vbp，其中的列表框中已经有两个列表项 (均为数字 )。程序功能是在文本框中输入一个整数 n(例如 30)，单击命令按钮，则在列表框中追加若干数字，所有追加的数字按以下规律排列：每个数是前面两个数之和，最后一个数是满足上述规律的最大的小于 n的数。如图 3-186(a)所示。若再输入一个更大的整数 (如 100)， 单击命令按钮，则按上述规律继续追加数字。如图 3-186(b)所示。 程序已经给出但不完整，请将其中的注释符去掉，把 ?改为正确的内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。 三、
5、综合应用题 5 考生文件夹下有工程文件 sjt5 vbp。程序运行时，外观如图 3-187所示，单击“显示数据 ”按钮，则将考生文件夹下 in5 dat文件的内容读入到 5行 40列的二维数组 a中，并按 5行显示在 Text1文本框内；单击 “统计 ”按钮，则计算每行中小于50的数之和，及这 些数的平均值 (平均值保留 2位小数，是否四舍五入不限 )，并将它们 (共 10个值 )分别显示在 Label1数组及 Text2数组中。单击 “保存 ”按钮，则保存计算结果。 “显示数据 ”和 “保存 ”按钮的 Click事件过程已经给出，请编写 “统计 ”按钮的 Click事件过程实现上述功能。 注
6、意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须用 “统计 ”进行统计，且必须单击 “保存 ”按钮保存结果，否则无成绩。最后，程序按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 77答案与解析 一、基本操作题 1 【正确答案】 审题分析 本题只需按题目要求画出含四个元素的按钮数组，并分别设置相应属性。 操作步骤 步骤 1：新建一个 “标准 EXE”工程，窗体中用 “复制 ”和 “粘贴 ”画出控件数组并按要求设置属性。 步骤 2：按要求将文件保存至考生文件夹中。 考点链接 按钮控件、控件数组。 2 【正确答案】 审题分析 由于计时器的 Interval属性初始为
7、 0，而程序一开始运行时计时器即变为可用，需在窗体的 Load事件过程中用语句设置其 Interval属性值为 1000。为 使标签交替显示或隐藏，每次计时器的 Timer事件中都应该令标签的 Visible属性取相反值。 操作步骤 步骤 1：新建一个 “标准 EXE”工程，按要求画出控件并设置属性。 步骤 2：在代码编辑窗口编写窗体的 Load事件和计时器的 Timer事件过程。 参考代码： Private Sub Form_Load() Timer1 Interval=1000 End Sub PriVate Sub Timer1_Timer() Label1 Visible=Not La
8、bel1 Visible End Sub 步骤 3：按要求将文件保存至考生文件夹中。 考点链接 计时器。 二、简单应用题 3 【正确答案】 审题分析 在 “成交 ”按钮的单击事件中，首先将文本框中的值显示在图片框中，然后依次判断单选按钮数组中哪个按钮被选中并显示在图片框中，最后通过循环依次判断三个复选框是否被选中 (Value属性为 1)，若选中也显示在图片框中。 在 “放弃 ”按钮的单击事件中，将文本框中的文本清空，同时将所 有单选按钮和复选框都设为未选中状态，清除图片框上的内容。 在单选按钮数组的单击事件过程中，要求使 “成交 ”按钮变为可用，则应该设置其Enabled属性为 True。
9、操作步骤 步骤 1：打开考生文件夹中的本题工程文件 sjt3 vbp打开代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： If Checkl(k) Value=1 Then Text1 Text=“ “ Command1 Enabled=True 步骤 2： 按要求将文件保存至考生文件夹中。 考点链接 控件数组、控件基本操作。 4 【正确答案】 审题分析 根据题目要求，需要循环向列表框中追加数据，每一次追加的是列表项最后两项之和。列表框的最后一项是 b=List1 List(List1 ListCount-1)，倒数第二项是a=List1 List(List1
10、 ListCount-2)。这两项加起来后的 c如果不大于 n，就代表 c应该添加进列表框仍然继续循环，故此原来的 b就变成了倒数第二项即 a， c的值就是最后一项即 b，然后调用列表框的 AddItem方法将 c加入列表框中。 操作步骤 步骤 1：打开考生文件夹下的工程文件 sjt4 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： a=Val(List1 List(List1 ListCount-2) a=b List1 AddItem c 步骤 2：按要求将文件保存至考生文件夹中。 考点链接 选择控件。 三、综合应用题 5 【正确答案】 审题分
11、析 本题可利用一个嵌套的 For循环来完成计算工作：在外循环 (循环变量的取值为1 5)体中，先初始设置记录每行小于 50的数据之和的变量 Sum和记录每行小于50的数据个数的变量 Counter的初值为 0，接着通过内循环 (循环变量的取值为 140)体完成对每行数据的累加工作，如果 a(i， j)小于 50则将其累加到 Sum中同时令Counter+1。内循环结束后，用表达式 Avg=Sum Counter计算出平均值并分别将Sum和 Avg显示在控件数组中。 操作步骤 步骤 1：打开考生文件夹中的本题工程文件 sjt5 vbp，打开代码编辑窗口 ，在指定位置编写以下代码： 参考代码： For i=1 To 5 Sum=0 Counter=0 For j=1 To 40 If a(i， j) 50 Then sum=sum+a(i， j) Counter=Counter+1 End If Next AVg=Sum Counter Label1(i-1) Caption=Sum Text2(i-1) Text=Int(Avg*100) 100 Next 步骤 2：按 键运行程序，先单击 “显示数据 ”按钮，接着单击 “统计 ”按钮，然后单击 “保存 ”按钮保存结果。 步骤 3：按要求将文件保存至考生文件夹中。 考点链接 多重循环、控件数组、数组定义与操作。
