1、国家二级 VB机试（上机操作）模拟试卷 451及答案与解析 一、基本操作题 1 (1)在名称为 Form1，标题为 “选课 ”的窗体上添加一个复选框数组，名称为 CH1，共有四个复选框，按顺序其标题分别是 “数学 ”、 “语文 ”、 “外语 ”、 “计算机 ”，其中“语文 ”、 “计算机 ”复选框处和选中状态下，程序运行时的窗体如图所示。请按要求添加控件并设置相应属性。注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt1 vbp，窗体文件名保存为 sjt1 frm。 (2)在名称为Form1的窗体上添加一个名称为 HS1的水半滚动条 ，其刻度值范围为 1 100；添加一个命令按钮，名
2、称为 C1，标题为 “移动滚动框 ”。清编写适当的事件过程，使得在程序运行时，每单击命令按钮一次 (假定单击次数小多于 10次 )，滚动框向右移动 10个刻度程序运行时的窗体如图所示。要求程序中不得使用变量，事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2 vbp，窗体文件名保存为 sjt2 frm。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp。程序运行时，单击窗体则显示如图所示的图案。请去掉程序中的 注释符，把程序中的 ?改为正确的内容。 注意：不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。 (2)
3、在考生文件夹下有一个工程文件 Sjt4 vbp，窗体中有一个矩形和一个圆，程序运行时，单击 “开始 ”按钮，圆可以横向或纵向运行 (通过选择单选按钮来决定 )，碰到矩形的边时，则向其相反方向运动，单击 “停止 ”按钮，则停止运动，如图所示。可以通过选择单选按钮随时改变运动方向。 已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容。注意：不得修改已经存在的内容和控件属 性，最后将修改后的文件按原文件名存盘。 三、综合应用题 3 考生文件夹下有一个工程文件 sjt5 vbp。运行程序后，从文件中读出数据，将其放入一个 55的二维数组 a中。请编写程序，找出数
4、组 a中每行的最大值及该值在行中的次序 (列下标 )，并将所找到的结果分别保存到一维数组 b、 c中 (a中第一行的最大值保存在 b(1)中，最大值的列次序保存在 c(1)中 )。 注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名存蕊。程序调试通过后，命令按钮的事件过程必须至少执一次。 国家二级 VB机试 （上机操作）模拟试卷 451答案与解析 一、基本操作题 1 【正确答案】 (1)步骤 l：新建窗体，按照题目要求建立控件并设置属性，如表3 30所示。 步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 (2)步骤 1：新建一个窗体，按照题目要求建立滚动条控件及命令按钮
5、控件并设置其属性，如图 3 25所示。程序中用到的控件及属性见表 3 31。 步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 参考答案 Private Sub Cl_Click() HS1 Value=HS1 Value+10当用户单击 ”移动滚动框 ”按钮则滚动条的 Value加 10 End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 (1)复选框 (CheckBox)常用于提供多个选项间的多重选择， Value的属性值决定每个复选框的选中状态： 0Unchecked为未选， 1一 Checked为选中， 2一 Grayed为变灰色。选择某复选框后，该
6、复选框将显示 “”，而取消选择后 “”消失。 (2)在单击命令按钮触发的 Click事件中加入让滚动条的 Value属性值加 10的语句，在每次单击命令按钮后，滚动条就 向右移动 10个刻度。 二、简单应用题 2 【正确答案】 (1)步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 参考答案 Private sub Form_Click() For i=1 To 5 输入 5行 For j=1 To 6一 i循环实现输入空格，每行依次减少一个空格 Print “； Next j For=j=1 To 2* i-1 观察图像每行 *的个数
7、 Print“*“； Next j Print Next i For i=1 To 4 For j=1 To i+1同问题 1 Print“； Next j For j =1 To (9-2*i)同问题 2 Print“*“； Next j Print Nexti End Sub 程序结束 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2)步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 参考答案 Dim d As Integer Private Sub Command1_Click() Timerl Enabled=True
8、。当单击 “开始 “按钮时， Timer生效 End Sub Private Sub Command2 Ciick() Timerl Enabled=False当单击 “停止 “按钮时， Timer失效 End Sub Private Sub Form_Load() d=1 End Sub Private Sub Timerl_Timer() If Optionl Then判断 Optionl是否被单击 Shape2 Top=Shape2 Top+d*50实现圆垂直移动 If Shape2 Top=Shape1 Top+Shape1 Height Then判断 Shape2与Shape1的位置
9、 d=一 d当圆移出 Shape1时，改变移动方向 End If ElseIf Option2 Then Shape2 Left=Shape2 Left+d*50实现水平移动 If Shape2 Left=Shape1 Left+Shape1 Width Then d=一 d当圆移出 Shape1时，则改变移动方向 En CIf End If End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 (1)本题主要考查的是对循环语句的理解，以及对于循环上限的判断。首先看一下两个主要的 For循环语句实现什么样的功能，先看第 1个 For语句，在循环语句中嵌套两个循环语
10、句，第 1个语句实现输入空格，当 i=1时，即当输入第 l行时，进行 For j=1 To 6一 i的循环，即在第 1行打印出 5个空字符，也可以理解为打印出 5个空格。第 2个 for循环实现的是 *的打印，还以 i=1为例，要打印出一个 *，同时要注意行数 i和输入空格及串符号个数之间的关系，也 就是找出表达式的运算规律，从而得到循环上限。 (2)在 Timerl_Timer事件过程中，通过判断单选按钮 “纵向 ”或 “横向 ”是否被选中来决定圆运动的方向，如果是纵向，则通过 Shape2的 Top和 Width属性值的改变实现圆的移动，并通过判断 Top属性值来确定是否到达上或下界，使圆
11、向相反方向运动。如果是横向，则通过 Shape2的 Left和 Width属性值的改变实现圆的移动。在 Command2_Click事件过程中通过将 Timerl的 Enabled属性设置为False，使圆停止运动，在 Command1_Click事件过程中通过将 Timerl的 Enabled属性设置为 True，使圆开始运动。 在窗体载入时设置 d的值，是为了方便编辑圆向相反方向的运动过程语句。 三、综合应用题 3 【正确答案】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 参考答案 Max=a(i， 1)将每行第一个数作为该行最大值，以便进行比较 F
12、or j=1 To 5 If Maxa(i， j)Then依次循环比较该行其他数，如有更大值，则替换 max值 Max=a(i， j) End If b(i)=Max最大值存入数组 b中 If Max=a(i， j) Then c(i)=j最大值的下标存入数组 c中 Next j 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 从考生文件夹下的文件中读出数据，放人 55的二维数组 a中。在命令按钮单击事件过程中，程序中变量 Max保存最大数，最初把数组的第一个元素赋给 Max，然后将其后的元素依次与之比较，如果大于 Max的值则与之交换，依次类推，最终 Max中的元素就是最大值，并把每一行的最大值保存到一维数组b中，通过 For循环语句和 If判断语句找出 a数组中每行的最大值以及其在行中的位置，并将所找到的结果分别保存到一维数组 c中，把最终的结果保存在文件out5 txt中。
