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