程序設(shè)計考查題6月26日

條 順 當 邏 有變量定義語句Dima, AsInteger，變量a的類型和初值是 Integer, B.Variant,空 C.String,“ D.Long,下列程序段的運行結(jié)果是（1）、（2）和（3）PrivateSubDimxAsSingleyAsSinglexInputBox("x的值")SelectCase(x\10)+1Casey=x+1Case2y=x-1CaseElsey=0EndSelectPrintyEnd（x–515執(zhí)行下面程序，輸出結(jié)果第一行為（4），第二行為（5）PrivateSubDimiAsInteger,sAsIntegerFori=1To5s=s+Ifs>5Printss=0EndIfNextiEnd執(zhí)行下面程序，第一行輸出結(jié)果為（6），第二行輸出結(jié)果為（7）PrivateSubDimstrAAsString,strBAsStringDimiAsIntegerstrA=Fori=1TostrB=strB&Chr(Asc(Mid(strA,i,1))-1)NextiPrintstrAPrintEnd運行下面程序，當單擊窗體時，輸出結(jié)果為PrivateSubForm_Click()Printfib(4)EndFunctionfib(mAsIfm=1Orm=2Thenfib=1fib=fib(m-1)+fib(m-EndIfEndFunction（9）（10）中的ByVal（11）PrivateSubDimaAsInteger,bAsIntegera=10:b=20CallSwap(a,b)Printa,bEndPrivateSubSwap(ByValxAsInteger,ByValyAsInteger)x=x*2y=y-5printx,yEndk，求其各位數(shù)字之和。根據(jù)下面圖形界面和程序，填寫對象XPrivateSubcmdCalculate_Click()DimsumAsInteger,kAsLongk=Val(txtIn.Text)DoWhilek>sum=sum+kMod10k=（13） EndPrivateSub EndSubPrivateSubcmdInput_Click()txtIn.Text=""txtOut.Text=""End （16X（17X（（19PrivateSubForm_Click()Dima(1To10)AsIntegerFori=1To10a(i)=Int(40*Rnd)+60NextiFori=1To10-1iMin=（20）Forj=i+1To10 iMin=jNextjt=a(i)=a(iMin)a(iMin)= NextFori=1ToPrinta(i);NextiEnd個素數(shù),2^n*(2^(n+1)-1)必是完備數(shù),1--1000之間的完P(guān)rivateSubForm_Click()n=1DoWhilea<1000a= m=2^(n+1)-i=q=Int(Sqr(m))t=1DoWhilei<=qAndt=1 i=i+t=EndIf ThenPrintn=n+1End61，2，366100PrivateSubDimaAsInteger,bAsInteger,cAsInteger,iAsIntegerFora=2To100c=Forb=2Toa- c=c+bEndIfNextb （27）PrintaEndIfNextaEndSub數(shù)組a1010-20之間的隨機整數(shù)，從鍵盤輸入一a中，并保持aPrivateSubDima(11)AsInteger,jAsInteger,iAsInteger,xAsIntegerFori=1To10a(i)=i*5+Printa(i);NextixVal(InputBox("輸入任意數(shù)"))Fori=1To10Ifa(i)=xPrintx&已