VB语言-2010春VB05上机答案.doc

《VB语言-2010春VB05上机答案.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、2010年（春）上机VisualBasic（VB05）答案一、改错【题目】本程序的功能是随机生成n个两位整数（n利用键盘输入），并存入一个数组。找出数组中的最大元素并将其删除，删除的方法是将最大元素后面的元素依次前移一个位置，数组长度减1。重复上述过程，直到得到只有一个元素的数组为止。OptionExplicitPrivateSubCommand1_Click()Dima()AsInteger,nAsInteger,mvAsInteger,mpAsIntegerDimiAsInteger,jAsInteger,stAsStringn=InputBox("元素个数","数组处理",

2、10)RandomizeReDima(n)Fori=1Tona(i)=Int(Rnd*90)+10Text1=Text1&Str(a(i))Nexti'st=""'位置错Fori=1Ton-1Callmaxv(a,mv,mp)Forj=mpToUBound(a)-1'errTon-1a(j)=a(j+1)NextjReDimPreservea(UBound(a)-1)'err无PreserveForj=1ToUBound(a)st=st&Str(a(j))NextjList1.AddItemstst=""NextiEndSubPrivateSubmaxv(a()AsInteger

3、,maxeAsInteger,mpAsInteger)DimiAsIntegermaxe=a(1):mp=1Fori=2ToUBound(a)Ifa(i)>maxeThenmaxe=a(i):mp=iEndIfNextiEndSub二、编程题【题目】编写程序，找出n～m之间所有的循环素数。所谓循环素数是指本身为素数，且其各位数字循环位移组成的新数全部为素数的整数。例如719是素数，而197、971也都是素数，所以719是循环素数。OptionExplicitOptionBase1PrivateSubCommand1_Click()DimiAsInteger,jAsInteger,

4、na()AsIntegerDimnAsInteger,mAsIntegern=Text1:m=Text2Fori=nTomCallchange(i,na)Forj=1ToUBound(na)IfNotprime(na(j))ThenExitForNextjIfj>UBound(na)ThenList1.AddItemiEndIfNextiEndSubPrivateFunctionprime(nAsInteger)AsBooleanDimiAsIntegerFori=2ToSqr(n)IfnModi=0ThenExitFunctionNextiprime=TrueEndFuncti

5、onPrivateSubchange(nAsInteger,na()AsInteger)DimpAsString,iAsInteger,kAsIntegerp=CStr(n)k=Len(p)ReDimna(k)na(1)=nFori=2ToUBound(na)na(i)=Val(Mid(p,i,k-i+1)&Left(p,i-1))NextiEndSubPrivateSubCommand2_Click()Text1="":Text2=""List1.ClearText1.SetFocusEndSubPrivateSubCommand3_Click()EndEndSub