国家二级VB机试(上机操作)模拟试卷415
基本操作题
1.(1)在名称为Form1的窗体上添加一个名称为Command1的命令按钮(如图1所示),然后通过属性窗口设置窗体和命令按钮的属性,实现如下功能:
①窗体标题为“设置按钮属性”;
②命令按钮的标题为“等级考试”;
③程序运行后,命令按钮不可见;
④命令按钮的标题字号、字体用三号常规黑体显示。
程序的运行情况如图2所示。
要求:不编写任何代码。
注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjt1.vbp,窗体文件名保存为sjt1.frm。
(2)在名称为Form1的窗体上添加一个名称为Label1的标签,在属性窗口中把。BorderStyle属性设置为1(如图1所示),编写适当的事件过程。使得程序在运行后,如果单击窗体,则可使标签移到窗体的右上角(只允许在程序中修改适当属性来实现)。
要求:不得使用任何变量。
注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjt2.vbp,窗体文件名保存为sjt2.frm。
(1)【操作步骤】
步骤1:新建一个窗体,按照题目要求建立命令按钮控件并设置命令按钮和窗体的相应属性,如图3.23所示。
[*]
程序中用到的属性见表3.21。
[*]
步骤2:调试并运行程序,关闭程序后按题目要求存盘。
(2)【操作步骤】
步骤1:新建一个窗体,按照题目要求建立标签控件并设置标签的相应属性,见表3.22。
[*]
步骤2:打开代码编辑窗口,在指定位置编写如下代码。
参考答案
Private Sub Form_Click()
Labe11.Top=0’设置Label1的初始位置
Labe11.Left=Form1.Width-Labe11.Width
End Sub
步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析:
简单应用题
2.(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt.frm。其功能是随机产生30个0~1000的整数,放入一个数组中,然后输出其中的最小值。程序运行后,单击命令按钮(名称为Command1,标题为“输出最小值”),即可求出其最小值,并在窗体上显示出来(如图所示)。这个程序不完整,请把它补充完整,并使其能正确运行。
(1)【操作步骤】
步骤1:打开本题工程文件。
步骤2:打开代码编辑窗口,去掉程序中的注释符“’’,将问号改为正确的内容。
参考答案
Option Base 1
Private Sub Command1_Click()
Dim arrN (30) As Integer
Dim Min As Integer
Randomize
For i=1 To 30
arrN(i)=Int(Rnd * 1000)
Next i
Min=arrN(1)’将第一个数赋给Min,以提供判断
For i=2 To 30
If arrN(i)<Min
Then’比较最小值与其他数值,找出最小值
Min=arrN(i)
End If
Next i
Print Min
End Sub
步骤3:调试并运行程序,关闭程序后按题目要求存盘。
(2)【操作步骤】
步骤1:打开本题工程文件。
步骤2:打开代码编辑窗口,在代码编辑窗口指定位置编写以下代码。
参考答案
Function Fun()
Dim S As Integer,i As Integer
For i=0 To 1000 ’求0~1000中满足条件的数
If i Mod 7<>0 Then
s=s+1将满足条件的数的个数累加
End If
Next i
Fun=s ’返回结果
End Function
步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析:
综合应用题
3.在考生文件夹下有一个工程文件sjt5.vbp,按照要求完成以下操作:
在考生文件夹下有一个工程文件sjt5.vbp,按照要求完成以下操作:
在名称为Form1的窗体上添加两个命令按钮,其名称分别为C1和C2,标题分别为“读入数据”和“计算”(如图所示)。程序运行后,如果单击“读入数据”按钮,则调用题目所提供的ReadData1和ReadData2过程读入datain1.txt和datain2.txt文件中的各20个整数,分别放入Art1和Arr2两个数组中;如果单击“计算”按钮,则把两个数组中对应下标的元素相减,其结果放入第三个数组中(第1个数组的第n个元素减去第2个数组的第n个元素,其结果作为第3个数组的第n个元素。这里的n为1、2…20),最后计算第3个数组各元素之和,把所求得的和在窗体上显示出来;并调用题目中给出的WriteData过程将所求得的和存入考生文件夹下的dataout.txt文件中。
注意:考生不得修改窗体文件中已经存在的程序,且必须执行一次,最后将修改后的文件以原来的文件名存盘。
【操作步骤】
步骤1:打开本题工程文件,按照题目要求建立命令按钮控件并设置命令按钮的相应属性,程序中用到的控件及属性见表3.23。
[*]
步骤2:打开代码编辑窗口,在代码编辑窗口指定位置编写以下代码。
参考答案
Private Sub C1_Click()
Cal1 ReadData1 ’调用过程ReadDatal
Cal1 ReadData2 ’调用过程ReadData2
End Sub
Private Sub C2 CliCk()
Dim Arr3(1 To 20)As Integer
Dim sum As Integer
Sum=0
本文档预览:3600字符,共3786字符,源文件无水印,下载后包含无答案版和有答案版,查看完整word版点下载