江苏省2010年二级计算机考试vb上机试题

《江苏省2010年二级计算机考试vb上机试题》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、2010春计算机等级考试（二级）VisualBasic程序设计上机考试试卷江苏省高等学校非计算机专业学生计算机基础知识和应用能力等级考试上机试卷（2010春）二级VisualBasic语言（试卷代号VB01）（本试卷完成时间70分钟）[考试须知]1．改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考；2．考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分；3．程序代码书写应呈锯齿形。一、改错题（14分）[题目]本程序的功能是：找出指定范围内，本身及其平方数均由不同数字组成的整数。OptionExplicitPri

2、vateSubCommand1_Click()DimnAsInteger,kAsLong,stAsStringForn=500To800k=n^2Ifvalidate(n)Andvalidate(k)Thenst=n&"^2="&kList1.AddItemstEndIfNextEndSubPrivateFunctionvalidate(nAsLong)AsBooleanDimpAsString,iAsInteger,a()AsInteger,jAsIntegerp=Str(n)ReDima(Len(p))Fori=1ToLen(p)a(i)=Mid(p,i,1)

3、NextiFori=1ToUBound(a)-1Forj=i+1ToUBound(a)Ifa(i)=a(j)ThenExitForNextNextivalidate=TrueEndFunction6[要求]1．新建工程，输入上述代码，改正程序中的错误；2．改错时，不得增加或删除语句，但可以适当调整语句位置；3．将窗体文件和工程文件分别命名为F1和P1，并保存到T盘的根目录下。二、编程题（26分）[题目]某数列的前二项为2和7，其后继项根据当前最后两项的乘积按下列规则生成：（1）若乘积为一位数，则该乘积即为数列的后继项；（2）若乘积为两位数，则该乘积的十位数和个位数

4、依次作为数列的两个后继项。编写程序，生成该数列的前n项，并把它们显示在文本框中。[编程要求]1．程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2．运行程序，首先在第一个文本框中输入需要的数列项数，按“运行”按钮，生成所要求的数列，按每行10个数据项的格式，输出到多行文本框中；按“清理”按钮，将两个文本框清空，并将焦点置于第一个文本框上；按“结束”按钮，结束程序运行；3．程序中应定义一个通用过程，用于生成所要求的数列。[要求]将窗体文件和工程文件分别命名为F2和P2，并保存到T盘的根目录下。6江苏省高等学校非计

5、算机专业学生计算机基础知识和应用能力等级考试上机试卷（2010春）二级VisualBasic语言（试卷代号VB02）（本试卷完成时间70分钟）[考试须知]1．改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考；2．考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分；3．程序代码书写应呈锯齿形。一、改错题（14分）[题目]本程序的功能是：利用随机函数生成n个可被3整除，且至少包含一个8的三位整数。OptionExplicitPrivateSubCommand1_Click()DimnAsInteger,a()AsI

6、nteger,iAsIntegerDimstAsStringn=InputBox("数据个数n：","查找",15)ReDima(n)Callfind(a)Fori=1TonIfnMod3<>0Thenst=st&Str(a(i))Elsest=st&Str(a(i))&vbCrLfEndIfNextiText1=stEndSubPrivateSubfind(a()AsInteger)DimubAsInteger,kAsInteger,pAsIntegerDimsAsStringRandomizeub=UBound(a)Dop=Int(Rnd*899)+100s=

7、CStr(p)IfInStr(s,"8")<>0OrpMod3=0Thenk=k+1a(k)=pEndIfLoopUntilk>ubEndSub[要求]61．新建工程，输入上述代码，改正程序中的错误；2．改错时，不得增加或删除语句，但可以适当调整语句位置；3．将窗体文件和工程文件分别命名为F1和P1，并保存到T盘的根目录下。二、编程题（26分）[题目]编写程序，求指定范围内的非素数整数的所有真因子（除1和自身以外的因子）。[编程要求]1．程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2．运行程序，首先在X文本

8、框与Y文本