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