VB上机考试模拟试题.doc

文档介绍：VB上机考试模拟试题
VB程序设计上机考试题的题型,分为两种类型:
⒈程序修改题
要求考生新建一个工程,,按照题意修改该模块中的函数或过程。为检测所作修改是否正确,可以在新建工程中添加一些控件或编制事件过程,用以调用模块中函数或过程的语句。
其中的程序填空题,要求考生删除已有源代码中标记“(x) ”的部分,根据题意填入适当的代码,其它部分不得改动;
其中的程序改错题:要求考生找出注释语句“'**** 错误 x ****”后的一个语句中的错误,并用正确的语句替换之,不允许改动其他的语句(也不得加行或减行)。
修改结束后,要保存工程,文件名一般按缺省,模块文件名不得改变。
⒉程序设计题
,按题意要求在对象窗口修改控件属性、删除代码窗口中中标记“(x) ”的部分,根据题意填入适当的代码。
程序修改题操作指导
程序填空题:
在考生目录中,,模块中的total过程是计算s=7+77+777+…(和式中最后一项有n个7),但不完整,请在横线上填入必要的内容,使其完整。
。。
操作:
⑴新建工程,在“工程”菜单中选择“添加模块”子菜单,在所选择的如下所示的“现存”
对话框中,打开考生目录中的文件“”。
⑵,考生应根据题意,对程序做修改。
Option Explicit '禁止使用缺省的数据类型(变体),即任何变量都要说明类型。
Public Sub total()
Const n = 20
Dim s As Single, i As Integer
For i = 1 To n
s = s + ⑴编者:需将“⑴”删除后填入“number(i)”
Next I
"s="; s
End Sub
Function number( ⑵) As Single 编者:需将“⑵”删除后填入“n as Integer”
Dim i As Integer
number = 0
For i = 1 To n
⑶编者:需将“⑶”删除后填入“number=number*10+7”
Next i
End Function
⑶运行调试
在本题中,为运行调试,可以在Form1的代码窗口内写入下列事件过程:
Private Sub Form_Click()
Call p()
End Sub
,考生只能在加下划线处修改,不得加行或减行。而为运行调试所编制的代码,可以由考生决定。如:mand1”、而将语句“Call p()”mand1_Click中,等等。
⑷存盘退出
程序改错题:
在考生目录中,,其中的Calculate过程是产生100个[0,99]范围内的随机整数,统计并显示个位上的数字分别为1,2,3,4,5,6,7,8,9,0的数的个数。
,请改正其中的错误。
注意:只要修改标出出错位置的下面那一条语句即可,其余代码不要改动。
操作(建立工程、添加模块的方法与程序填空题的操作相类似):
⑴新建工程,在“工程”菜单中选择“添加模块”子菜单,在“现存”对话框中,打开考生目录中的文件“”。
⑵,考生应根据题意,对程序做修改。
Public Sub Calculate()
Dim a(1 To 100) As Integer, a(1 To 10)As Integer, i As Integer, p As Integer
' 产生100个[0,99]范围内的随机整数,每行10个显示出来。
For i = 1 To 100
****** 错误1 ********
a(i) = Rnd * 100 需改此句为“a(i) = Int(Rnd * 100)”
If a(i) < 10 Then
Space(2); a(i);
Else
Space(1); a(i);
End If
If i Mod 10 = 0 Then
Next i
' 统计个位上的数字分别为1、2、3、4、5、6、7