文档介绍：:..VB上机考试模拟试题VB程序设计上机考试题的题型,分为两种类型:,在该工程中打开已有模块文件 ,按照题意修改该模块中的函数或过程。为检测所作修改是否正确,可以在新建工程中添加一些控件或编制事件过程,用以调用模块中函数或过程的语句。其中的程序填空题,要求考生删除已有源代码中标记“ Jx)_”的部分,根据题意填入适当的代码,其它部分不得改动;其中的程序改错题:要求考生找出注释语句“'****错误x****”后的一个语句中的错误,并用正确的语句替换之,不允许改动其他的语句(也不得加行或减行) 。修改结束后,要保存工程,文件名一般按缺省,模块文件名不得改变。,按题意要求在对象窗口修改控件属性、删除代码窗口中中标记“Jx)—”的部分,根据题意填入适当的代码。程序修改题操作指导程序填空题:在考生目录中,,模块中的total过程是计算s=7+77+777+…(和式中最后一项有n个7),但不完整,请在横线上填入必要的内容,使其完整。。。操作:⑴新建工程,在“工程”菜单中选择“添加模块”子菜单,在所选择的如下所示的“现存”对话框中,打开考生目录中的文件“ ”。⑵,考生应根据题意,对程序做修改。OptionExplicit' 禁止使用缺省的数据类型(变体),即任何变量都要说明类型PublicSubtotal()Constn=20DimsAsSingle,iAsIntegerFori=1Tons=s+ ⑴ 编者:需将"⑴”删除后填入"number(i)”"s=";sEndSubFunctionnumber( ⑵)AsSingle 编者:需将"⑵”删除后填入"nasInteger'DimiAsIntegernumber=0Fori=1Ton⑶ 编者:需将"⑶ ”删除后填入"number=number*10+7”NextiEndFunction⑶运行调试在本题中,为运行调试,可以在 Form1的代码窗口内写入下列事件过程:PrivateSubForm_Click()Callp(),考生只能在加下划线处修改,不得加行或减行。而为运行调试所编制的代码,可以由考生决定。如:可以在窗体上添加命令按钮“ Command'1、而将语句"Callp() ”mand1_Click中,等等。⑷存盘退出程序改错题:在考生目录中,,其中的Calculate过程是产生100个[0,99]范围内的随机整数,统计并显示个位上的数字分别为 1,2,3,4,5,6,7,8,9,0的数的个数。,请改正其中的错误。注意:只要修改标出出错位置的下面那一条语句即可,其余代码不要改动。操作(建立工程、添加模块的方法与程序填空题的操作相类似) :⑴新建工程,在“工程”菜单中选择“添加模块”子菜单,在“现存”对话框中,打开考生目录中的文件“”。⑵,考生应根据题意,对程序做修改。PublicSubCalculate()Dima(1To100)AsInteger,a(1To10)AsInteger,iAsInteger,pAsInteger'产生100个[0,99]范围内的随机整数,每行 10个显示出来。Fori=1To100******错误1********#需改此句为“a(i)=Int(Rnd*100)a(i)=Rnd*100Ifa(i)<(2);a(i);(1);a(i);EndIfIfiMod10=' 统计个位上的数字分别为' 并将统计结果保存在数组元素Fori=1To100¥错^误2******I******p=Int(a(i)/10)Ifp=0Thenp=10'****** 乍错误3x(p)=x(p)-1Nexti******"统计结果”1、2、3、4、5、6、7、8、9、0的数的个数中,将统计结果显示出来x(1),x(2), …,x(10)需改此句为需改此句为p=a(i)Mod10 ”x(p)=x(p)+