国家二级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版点下载