资源描述：
《江苏省计算机等级考试上机试卷2》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、江苏省计算机等级考试上机试卷（2007春）二级VB--------------------------------------------------------------------------------来源：南天计算机更新时间：2008-9-1关键字：江苏省计算机等级考试上机试卷（2007春）VB江苏省高等学校非计算机专业学生计算机基础知识和应用能力等级考试上机试卷（2007春）二级VisualBasic语言（试卷代号VB05）（本试卷完成时间70分钟）【考试须知】1．改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考；2．考试结束后
2、，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分；3．程序代码书写应呈锯齿形。一、改错题（14分）【题目】本程序的功能是找出这样的四位数：①各位上的数字不重复，且不为0；②相邻两个数字之和为素数；③首尾两个数字之和也为素数。(界面参见图1)算法提示：从可能符合条件的4位数中，首先判断其是否含有重复的数码和0，若无则调用函数Prime，判断这个4位数的相邻两个数字和首尾两个数字之和是否都是素数。PrivateSubCommand1_Click()DimA(9)AsInteger,IAsInteger,KAsInteger,SAsString
3、,JAsIntegerForI=1234To9876EraseAS=CStr(I)ForJ=1ToLen(S)K=Val(Mid(S,J,1))IfK=0ThenExitSubIfA(K)=0Then‘此If结构功能是判断4位数是否含有重复的数码A(K)=1ElseExitForEndIfNextJIfJ>=Len(S)AndPrime(I)ThenList1.AddItemIEndIfNextIEndSubPrivateFunctionPrime(NAsInteger)AsBooleanDimSAsString,LAsInteger,KAsInteger,Te
4、mAsLong,IAsIntegerS=CStr(N)L=Len(N)ForI=1ToLIfI<>LThenTem=Val(Mid(S,I,1))+Mid(S,I+1,1)ElseTem=Val(Mid(S,1,1))+Mid(S,L,1)EndIfForK=2ToSqr(Tem)IfTemModK=0ThenExitFunctionNextKNextIPrime=TrueEndFunction【要求】1．新建工程，输入上述代码，改正程序中的错误；2．改错时，不得增加或删除语句，但可适当调整语句位置；3．将窗体文件和工程文件分别命名为F1和P1，并保存到软盘A的
5、根目录下。二、编程题（26分）【题目】编写程序，求乘积在给定区间内的互为反序的两个自然数。所谓互为反序的自然数是指如102和201，35和53，11和11这样的数。而120和21则不是。【编程要求】1．程序参考界面如图2所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2．在文本框1中输入A值，在文本框2中输入B值，再按“运行”按钮，则在11～2000的范围内查找乘积为[A,B]区间的反序数对，并在列表框中显示结果；按“清理”按钮，则将2个文本框及列表框清空，焦点置于文本框1；按“结束”按钮，结束程序运行；3．程序中应定义一个
6、名为nx的函数过程，用于求一个整数的反序数。[算法提示]如果一个整数末位数为0，则不需要求反序数。【要求】将窗体文件和工程文件分别命名为F2和P2，并保存到软盘A的根目录下。图2图1江苏省计算机等级考试上机试卷（2007春）二级VisualBasic语言（试卷代号VB02）（本试卷完成时间70分钟）【考试须知】1．改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考；2．考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分；3．程序代码书写应呈锯齿形。一、改错题（14分）【题目】从10个各不相同的正整数中，剔除若干
7、个数。使得保留下来的数中，任意两个数的和都不是平方数（所谓的平方数就是该数等于某一个数的平方，例如4就是一个平方数）。OptionExplicitOptionBase1PrivateSubCommand1_Click()DimA(10)AsInteger,IAsInteger,JAsInteger,PAsInteger,KAsIntegerDoWhileP<=10K=Int(20*Rnd)+1ForJ=1ToPIfK=A(J)ThenExitDoNextJIfJ>PThenP=P+1A(P)=KText1=Text1&Str(K)EndIfLoopCallDel
8、ete(A,P)ForI
