05年春江苏计算机二级VB上机试题及答案

江苏2005春二级VisualBasic语言（试卷代号VB01）（本试卷完成时间70分钟）【考试须知】1.改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考；2.考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分；3.程序代码书写应呈锯齿形。一、改错题（14分）【题目】下面程序功能是：找出100以内满足N+1个连续自然数之和等于其后N个连续自然数之和的序列（例如：4+5+6=7+8就是满足要求的序列）。OptionExplicitPrivateSubCommand1_Click()DimIAsInteger,SAsString,FlgAsBooleanForI=2To10CallSub1(I,S,Flg)Flg=FalseIfFlgThenText1=Text1&S&vbCrLfEndIfNextIEndSubPrivateSubSub1(KAsInteger,SAsString,FAsBoolean)DimIAsInteger,Sum1AsInteger,Sum2AsIntegerDimNAsInteger,StartAsIntegerDoWhileSum1Sum2AndN100Start=Start+1N=StartS=N:Sum1=NForI=1ToK-1N=N+1Sum1=Sum1+NS=S&+&NNextIS=S&=&NN=N+1Sum2=NForI=1ToK-2N=N+1Sum2=Sum2+NS=S&+&NNextIN=N+1IfSum1=Sum2ThenF=TrueEndIfLoopEndSub【要求】1.新建工程，输入上述代码，改正程序中的错误；2.改错时，不得增加或删除语句，但可适当调整语句位置；3.将窗体文件和工程文件分别命名为F1和P1，并保存到软盘A的根目录下。二、编程题（26分）【题目】本程序的功能是：按设定的数据位数N（N=2、3、3、4、5、6），随机生成20个互不相等正整数，按5个一行的形式输出到文本框中，并从中找出所有降序数输出到列表框。所谓降序数是指所有高位数字都大于其低位数字的数。例如973就是一个降序数。【编程要求】1.程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2.在文本框1中输入N值，按“执行”按钮，则开始计算并在文本框2中显示生成的随机数，在列表框中输出其中的降序数；按“清除”按钮，则将2个文本框及列表框清空，焦点置于文本框1上；按“退出”按钮，结束程序运行；3.程序中应定义一个用于判断一个N位数是否是降数的通用过程。【要求】将窗体文件和工程文件分别命名为F2和P2，并保存到软盘A的目录下。二级VisualBasic语言（试卷代号VB02）（本试卷完成时间70分钟）【考试须知】1.改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考；2.考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分；3.程序代码书写应呈锯齿形。一、改错题（14分）【题目】本程序的功能是对字符串加密。密钥为一数字串，每个数字表示将首字符右移的位置，例如，若明文字符串为helpme，密钥中第一个数字4表示将首字符h移到位置4，得到新字符串elphme，再取密钥的下一个数字符串进行上述操作，直到最后一个密钥数字处理完就得到密文。若移位超出原文长度，则自动回转（按原文长度取模）。OptionExplicitPrivateSubCommand1_Click()DimIAsString,s2AsString,iAsInteger,keyAsIntegers1=Text1//s2=Text2Fori=1ToLen(s2)key=Val(Mid(s2,i,1))Callencode(s1,key)NextiText3=s1EndSubPrivateSubencode(sAsString,KAsInteger)DimIAsInteger,tAsString*1,nAsIntegert=Mid(s,1,1)n=kModLen(s)ifn=0Thenk=nEndIfFori=2TokMid(s,i-1,1)=Mid(s,i,1)NextiMid(s,i,1)=tEndSub【要求】1.新建工程，输入上述代码，改正程序中的错误；2.改错时，不得增加或删除语句，但可适当调整语句位置；3.将窗体文件和工程文件分别命名为F1和P1，并保存到软盘A的根目录下。二、编程题（26分）【题目】本程序的功能是：首先按给定格式（数据以逗号分隔，-1表示数据结束）将输入到文本框1中的数据依次存入一个数组，然后为该组数据建立一个按从大到小次序的索引表并显示在文本框2中。如下土，文本框2中的第一个数据4表示文本框1中4个数最大；文本框2中的最后一个数据8表示文本框1中第8个数最小。【编程要求】1.程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2.在文本框1中输入测试数据，按“处理”按钮，则按题目要求得到结果并显示在文本框2中；按“清除”按钮，则将2个文本框清空，将焦点置于文本框1上；按“退出”按钮，结束程序运行；3.程序中应定义一个根据数组元素的大小从大到小取其排列号的通用过程。【要求】将窗体文件和工程文件分别命名为F2和P2，并保存到软盘A的目录下。二级VisualBasic语言（试卷代号VB03）（本试卷完成时间70分钟）【考试须知】1.改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考；2.考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分；3.程序代码书写应呈锯齿形。一、改错题（14分）【题目】下面程序功能是：求出（K+1）个连续数的平方数，其和等于其后的K个连续数的平方数之和。OptionExplicitPrivateSubCommand1_Click()DimIAsInteger,KAsIntegerDimFlgAsBoolean,SAsStringDoK=K+1Flg=FalseForI=3To100S=I&^2CallSub1(I,K,S,Flg)IfFlgThenText1=Text1&S&vbCrLfEndIfNextILoopWhileK6EndSubPrivateSubSub1(NAsInteger,KAsInteger,SAsString,FAsBoolean)DimJAsInteger,Sum1AsInteger,Sum2AsInteger,AAsIntegerSum1=N^2//此处插入图片ForJ=1ToKN=N+1Sum1=Sum1+N^2S=S&+&N&^2NextJN=N+1S=S&=&N&^2Sum2=N^2ForA=1ToK-1N=N+1Sum2=Sum2+N^2S=S&+&N&^2NextAIfSum1=Sum2ThenF=TrueEndIfEndSub【要求】1.新建工程，输入上述代码，改正程序中的错误；2.改错时，不得增加或删除语句，但可适当调整语句位置；3.将窗体文件和工程文件分别命名为F1和P1，并保存到软盘A的根目录下。二、编程题（26分）【题目】在A盘根目录下建立纯英文的文本文件Data.txt。要求编程用字符串S1替换文件中所有字符子串S，字符串S不区分字母大小写，S1与S长度不一定相同。文件Data.Txt的内容如下，其中VB、Vb，vB,vb都要求用VisualBasic替换。ThisaVBbookWestudyvbVbisveryusefulHelloVB运行程序，替换后的结果见界面图。【编程要求】1.按“开始”按钮，则开始运行程序，将结果按图示格式显示在文本框中；按“清除”按钮，则将文本框清空；按“结束”按钮结束程序运行；2.要求编写一个实现字符串替换的通用过程；3.不允许使用Instr函数。【要求】1.程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2.将窗体文件和工程文件分别命名为F2和P2，并保存到软盘A的目录下。二级VisualBasic语言（试卷代号VB04）（本试卷完成时间70分钟）【考试须知】1.改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考；2.考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分；3.程序代码书写应呈锯齿形。一、改错题（14分）【题目】本程序用于验证下列命题：可被37整除的三位整数，其各位数字循环移位后得到的三位数也可被37整除。例如148，481，841都是这样的数（不考虑含有数字0的三位数）。OptionExplicitPrivateSubCommand1_Click()DimnAsInteger,p(2)AsInteger,jAsIntegerDimsAsString,fAsBooleanForn=100To999//此处插入图片。Callpnum(n,p,f)IffAndnMod37=0Thens=CStr(n)Forj=1To2Ifp(j)Mod370ThenMsgBox(验证失败)ExitSubElses=s&Str(p(j))EndIfNextjList1.AddItemsEndIfNextnEndSubPrivateSubSub1(nAsInteger,p()AsInteger,flagAsBoolean)DimiAsInteger,kAsInteger,hAsIntegerflag=FalseIfInStr(CStr(n),0)=0Thenflag=TrueFori=1To2k=nMod10h=n\100p(i)=Str(k)&Str(h)n=p(i)NextiEndSub【要求】1.新建工程，输入上述代码，改正程序中的错误；2.改错时，不得增加或删除语句，但可适当调整语句位置；3.将窗体文件和工程文件分别命名为F1和P1，并保存到软盘A的根目录下。二、编程题（26分）【题目】将若干正整数排成圆圈，依次编号（例如26为第一号）。编写程序，找出拐点元素（所谓拐点元素是指它比左右相邻元素都大或都小），输出拐点元素的值及位置。【编程要求】1.程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2.按“运行”按钮，则生成由15个无重复数的两位随机整数数列，显示到文本框内；求出该数列中的怪点元素，按示例格式（数据，位置号）显示在列表框中；按“清除”按钮，则文本框、列表框清空，将焦点置于文本框上；按“退出”按钮，结束程序运行；3.程序中应定义一个生成没有重复元素的的两位随机整数数组的通用过程。【要求】将窗体文件和工程文件分别命名为F2和P2，并保存到软盘A的目录下。二级VisualBasic语言（试卷代号VB05）（本试卷完成时间70分钟）【考试须知】1.改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考；2.考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分；3.程序代码书写应呈锯齿形。一、改错题（14分）【题目】下面程序功能是：已知三角形三个顶点的坐标，通过距离公式求出三边长度，再求出三角形的面积。OptionExplicitPrivateSubCommand1_Click()Dimxy(3,2)AsSingle,iAsIntegerDimstAsString,nAsInteger,n1AsInteger,sAsStringText1=(28.5,36.7),(12.3,10.9),(45.5,25.4)st=Text1//此处插入图片Doi=i+1n=InStr(st,))s=Mid(st,2,n-1)n1=InStr(s,,)xy(i,1)=Left(s,n1-1)xy(i,2)=Mid(s,n1+1,n-n1-n2)Ifn=Len(st)Th