资源描述：
《江苏省等考VB上机真题汇总.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、2008春VB03一、改错题（14分）【题目】本程序功能是求二维的随机整数数组每一行元素中素数的个数。OptionExplicitDima()AsInteger,mAsInteger,nAsIntegerPrivateSubCommand1_Click()DimiAsInteger,jAsIntegerm=InputBox("行数",,4)n=InputBox("列数",,5)ReDima(m,n)Fori=1TomForj=1Tona(i,j)=Int(Rnd*90)+10Picture1.Printa(i,j);NextjPicture1.Pr
2、intNextiEndSubPrivateSubCommand2_Click()DimiAsInteger,jAsIntegerDimkAsInteger,mAsInteger,nAsIntegerk=0Fori=1TomForj=1TonIfprime(a(i,j))Thenk=k+1NextjText1=Text1&k&vbCrLfNextiEndSubPrivateFunctionprime(nAsInteger)AsBooleanDimiAsIntegerFori=2ToSqr(n)IfnModi=0ThenExitForNextiprim
3、e=TrueEndFunction【要求】1．新建工程，输入上述代码，改正程序中的错误；2．改错时，不得增加或删除语句，但可适当调整语句位置；3．将窗体文件和工程文件分别命名为F1和P1，并保存到软盘A的根目录下。二、编程题（26分）【题目】编写程序，查找给定范围[A,B]内所有升序完全平方数。所谓升序完全平方数是指该数的平方根是一个整数，且组成该数的各位数字由左至右，依次递增。例如13689的平方根是117，它就是一个升序完全平方数。【编程要求】1．程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可
4、见；2．运行程序，在文本框1和文本框2中分别输入A与B的值，按“查找”按钮，开始查找并在列表框中显示结果；按“清除”按钮，则将所有文本框与列表框清空，焦点置于文本框1上；3．程序中应定义一个名为sx的函数过程，用于判断一个正整数是否为升序数。【提示】判断一个整数是否为升序数，首先要分解得到该数的各位数字，再逐位依次判断其大小。【要求】将窗体文件和工程文件分别命名为F2和P2，并保存到软盘A的根目录下。2008秋VB01一、改错题（14分）【题目】本程序的功能是：随机生成一个有n个元素的数组（n由InputBox函数输入），找出其中的最大元素并将它删
5、除，再输出删除后的数组。OptionExplicitOptionBase1Dima()AsInteger,nAsIntegerPrivateSubCommand1_Click()DimiAsIntegern=InputBox("请输入数组个数",,10)ReDima(n)Fori=1Tona(i)=Int(Rnd*100)+1Text1=Text1&Str(a(i))NextiCalllookup(a)Fori=1TonText2=Text2&Str(a(i))NextiEndSubPrivateSublookup(a()AsInteger)Dim
6、maxvAsInteger,maxpAsInteger,iAsIntegermaxv=a(1):maxp=1Fori=2TonIfa(i)>maxvThenmaxv=a(i):maxp=iEndIfNextiCallmove_f(a,maxp)EndSubPrivateSubmove_f(a()AsInteger,kAsInteger)DimiAsIntegerFori=k+1ToUBound(a)a(i)=a(i+1)NextiReDima(UBound(a)-1)EndSub【要求】1．新建工程，输入上述代码，改正程序中的错误；2．改错时，不得
7、增加或删除语句，但可适当调整语句位置；3.将窗体文件和工程文件分别命名为F1和P1，并保存到T盘的根目录下。二、编程题（26分）【题目】编写程序，找出介于a和b之间所有能构成幻影素数的数。所谓幻影素数是指自身为素数，其反序数也是素数的数。例如107和701都是素数，所以107是幻影素数。【编程要求】1.程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2.运行程序，在文本框A和文本框B中输入指定数据范围，再按“运行”按钮，将找出的幻影素数存放在列表框中（若指定区间无幻影素数，则输出“本区间无幻影素
8、数”）。按“清除”按钮，将文本框和列表框清空，焦点置于文本框A上；3.程序中应定义一个名为prime的函数过程，用于判断一
