历年江苏省计算机上机真题(2008年春至2012年春)

《历年江苏省计算机上机真题(2008年春至2012年春)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、2008年（春）一、改错【题目】本程序的功能如下图所示，将输入的一个由数字字符组成的字符串，从第一位、第二位……直到倒数第二位，依次取两位数据，得到一组两位整数输出到列表框1，再将其中的素数挑选出来输出到列表框2（注意，如果截取到的两位数字，第一位为0，例如05，则无效，将其丢弃）。OptionExplicitPrivateSubCommand1_Click()DimstAsString,num()AsIntegerDimkAsInteger,iAsIntegerst=Text1i=1:k=1DoIfMid(st,i,1)<

2、>"0"ThenReDimPreservenum(k)'err无Preservenum(k)=Val(Mid(st,i,2))List1.AddItemnum(k)k=k+1EndIfi=i+1LoopWhilei

3、IfnModi=0ThenExitFunction'errExitForNextiprime=TrueEndFunction二、编程题【题目】编写程序，将10～5000之间的一组数据，变换到（0,1）区间。变换的方法是，找出这组数据中的最大数，用大于它的第一个能被100整除的数n，分别除以这组数据中的每个数。例如，在下图数据中最大数为4810，则n为4900，用所有数据除以4900进行变换。OptionExplicitOptionBase1Dima(20)AsIntegerPrivateSubCommand1_Click()

4、DimiAsInteger,jAsIntegerFori=1To20a(i)=Int(Rnd*(4999-10+1))+10Text1.Text=Text1&Str(a(i))IfiMod5=0ThenText1.Text=Text1&vbCrLfNextiEndSubPrivateSubCommand2_Click()DimiAsInteger,nAsIntegern=((maxv100)+1)*100Fori=1To20List1.AddItema(i)&"---"&CSng(a(i)/n)NextiEndSubPri

5、vateFunctionmaxv()AsIntegerDimiAsIntegermaxv=a(1)Fori=2To20Ifmaxv

6、成后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分；3．程序代码应缩行书写(呈锯齿形)。一、改错题(14分)【题目】本程序的功能是：随机生成一个有n个元素的数组（n由InputBox函数输入），找出其中的最大元素并将它删除，再输出删除后的数组。OptionExplicitOptionBase1Dima()AsInteger,nAsIntegerPrivateSubCommand1_Click()DimiAsIntegern=InputBox("请输入数组个数",,10)ReDima(n)Fori=1

7、Tona(i)=Int(Rnd*100)+1Text1=Text1&Str(a(i))NextiCalllookup(a)Fori=1TonText2=Text2&Str(a(i))NextiEndSubPrivateSublookup(a()AsInteger)DimmaxvAsInteger,maxpAsInteger,iAsIntegermaxv=a(1):maxp=1Fori=2TonIfa(i)>maxvThenmaxv=a(i):maxp=iEndIfNextiCallmove_f(a,maxp)EndSubPr

8、ivateSubmove_f(a()AsInteger,kAsInteger)DimiAsIntegerFori=k+1ToUBound(a)a(i)=a(i+1)NextiReDima(UBound(a)-1)EndSub【要求】1．新建工程，输入上述代码，改正程序中的错误；2．改错时，