大學計算機VB考試上機題庫

大學計算機VB考試上機題庫1、求100以內(nèi)的素數(shù)。PrivateSubForm_Click()Dimi%,j%1Fori=2To100Forj=2Toi-1IfiModj=0ThenExitForNextjIfj=iThenPrintiNextiEndSub2、從鍵盤輸入任意長度的字符串，要求將字符順序倒置，例如，將輸入的“ABCDEFG變換成“GFEDCBA。PrivateSubCommand1_Click()Dima$,I%,c$,d$,n%a=InputBox$("輸入字符串”)n=Len(a)ForI=1ToInt(n\2)c=Mid(az1,1)Mid(az1,1)=Mid(azn-I+lz1)Mid(a,n-1+1)=cNextIPrintaEndSub3、計算0-200之間所有能被11或5整除的數(shù)之和PrivateSubForm_Click()Dimn°/of\0/qn=0Fori=1To200IfiMod11=OOriMod5=0Thenn=n+iEndIfNextiPrintnEndSub4、輸入一年份，判斷它是否為閏年，并顯示有關(guān)信息。（判斷閏年的條件是：年份能被4整除但不能被100整除，或者能被400整除）PrivateSubCommand1_Click（）Dimy%y=InputBox（”請輸入年數(shù)”）IfyMod4=0AndyMod100<>0OryMod400=0ThenMsgBox（y&"年是閏年"）ElseMsgBox（y&"年是平年"）EndIfEndSub5、已知x,y,z3個變量中存放了3個不同的數(shù)，比較它們的大小并進行調(diào)整，使得x<y<z。PrivateSubCommand1_Click（）Dimx!,y!,z!x=InputBox("inputx")y=InputBox("inputy")z=InputBox("inputz")Print"xyz"Ifx>yThent=x:x=y:y=tIfx>zThent=x:x=z:z=tIfy>zThent=y:y=z:z=tPrint"排序后";x;"";y;"";zEndSub6、求s=a+aa+aaa+…aaaaa(n個a))其中a和n的值隨機產(chǎn)生，a的范圍是［1,9］的整數(shù)，n的范圍是［5,10］。如a=3,n=6,則s=3+33+333+3333+33333+333333編程確定n和a的值，并計算s。PrivateSubFormClick()Dims!,t!,i!,a%,n%a=Int(Rnd*9+1)s=s+is=s+in=Int(Rnd*6+5)t=0:s=0Print"a=";a,"n=";nFori=1Tont=t*10+as=s+tPrintt;NextiPrintPrint"s=";sEndSub7、計算100?300之間所有能被3和7整除的數(shù)之和。PrivateSubForm_Click()Fori=100To300IfiMod21=0ThenPrinti;EndIfNextiPrintPrint"s=";sEndSub8、編程求200--400范圍內(nèi)5的倍數(shù)或7的倍數(shù)之和。(一個數(shù)如果同時是7和5的倍數(shù)，則只能加一次。)PrivateSubCommand1_Click()Dims1%,s2%,s3%,i%S1=0S2=0Fori=200to400Ifimod5=0orimod7=0thens1=s1+iEndifIfi=1ThenIfi=1ThenNextiFori=200to400Ifimod5=0orimod7=0thens2=s2+iEndifNextiS3=s1-s2Prints3Endsub9、找出被3、5、7除，余數(shù)為1的最小的5個正整數(shù)。PrivateSubCommand1_Click()DimCountN%,n%CountN=0n=1Don=n+1IfnMod3=1AndnMod5=1AndnMod7=1ThenPrintnCountN=CountN+1EndIfLoopUntilCountN=5EndSub10、某次歌曲大獎賽，有7個評委。如果分別輸入7個評委對某個參賽者的打分數(shù)，按照去掉一個最高分和一個最低分的計算辦法，求出該參賽者的平均得分。PrivateSubCommand1_Click()Dimmark!,max!,min!,aver!,i%aver=0Fori=1To7mark=InputBox("輸入第"&i&"位評委的打分”)max=mark:min=markElseIfmark<minThenmin=markIfmark>maxThenmax=markEndIfaver=aver+markNextiaver=(aver-min-max)/5PrintaverEndSub11、編程顯示100~500之間所有的水仙花數(shù)之和。(水仙花數(shù)是3位數(shù)，其各位數(shù)之和等于該數(shù)本身)PrivateSubForm_Click()Dimi%,s%,s1%,s2%,s3%,a!a=0Fori=0To400s=99+isi=(sMod100)\10s2=sMod10s3=s\100Ifs1八3+s2八3+s3八3=sThena=s+aEndIfNextiPrintaEndSub12、隨機產(chǎn)生一個三位正整數(shù)，然后逆序輸出，產(chǎn)生的數(shù)與逆序數(shù)同時顯示。例如，產(chǎn)生246,輸出是642。Dima%,m%,b%,c%,d%PrivateSubForm_Click()a=Int(Rnd*900+100)Printad=(aMod10)*100b=(aMod100)-(aMod10)c=a\100m=c+b+dPrintmEndSub13、從鍵盤輸入三角形的三條邊a,b,c的值,根據(jù)其數(shù)值，判斷能否構(gòu)成三角形。PrivateSubForm_Click()Dima%,b%,c%a=Val(InputBox("inputa"))b=Val(InputBox("inputb"))c=Val(InputBox("inputc"))Ifa+b>cAnda+c>bAndb+c>aThenMsgBox("能構(gòu)成三角形")ElseNextiNextiMsgBox("不能構(gòu)成三角形")EndIfEndSub14、已知數(shù)組a(),編程刪除a中第5個元素。數(shù)組a中的元素分別為｛12,6,4,89,75,63,100,20,31｝。PrivateSubForm_Click()Dima(),i%,n%a=Array(12,6,4,89,75,63,100,20,31)n=UBound(a)Fori=0TonPrinta(i);NextiPrintFori=5Ton1a(i-1)=a(i)ReDimPreservea(n)Fori=0TonPrinta(i);NextiPrintEndSub15、隨機生成一個整型的二維數(shù)組，范圍在[10,20]之間，以上三角形式輸出該數(shù)組。(下三角、全部元素)Dima%(4,4)Dima%(4,4)PrivateSubCommand1_Click()Picture1.ClsFori=0To4Forj=iTo4Picture1.PrintTab(j*6);a(i,j);NextjPrint"Print"第四行";s3;"(";3;b3;")"Picturel.PrintNextiEndSubPrivateSubForm_Load()Fori=0To4Forj=0To4a(i,j)=Int(Rnd*11+10)NextjNextiEndSub16、利用隨機函數(shù)生成一個4M的矩陣(即二維矩陣)，范圍是［20,50］內(nèi)的整數(shù)，輸出每行中的最大值和下標。PrivateSubForm_Click()Dima%(3,3),s0%,s1%,s2%,s3%,b0%,b1%,b2%,b3%Max=40Fori=0To3Forj=0To3a(i,j)=Int(Rnd*31+20)PrintTab(j*5);a(i,j);TOC\o"1-5"\h\zIfa(0,j)>=MaxThens0=a(0,j):b0=Ifa(1,j)>=MaxThens1=a(1,j):b1=Ifa(2,j)>=MaxThens2=a(2,j):b2=Ifa(3,j)>=MaxThens3=a(3,j):b3=NextjNextiPrintPrint"第一行"；s0;"(";0;b0;")"Print"第二行";s1;"(";1;b1;")"Print"第三行"；s2;"(";2;b2;")"EndSub17、利用隨機函數(shù)生成一個4X4的矩陣(即二維矩陣)，范圍是［40,80］內(nèi)的整數(shù)，求它的最大值及所對應(yīng)的下標。PrivateSubForm_Click()Dima%(3,3)Min=80Fori=0To3Forj=0To3a(i,j)=Int(Rnd*41+40)PrintTab(j*5);a(i,j);Ifa(i,j)<=MinThenMin=a(i,j):b=i:c=jEndIfNextjNextiPrintPrint"最小值為";MinPrint"其下標為";"("；b,c;")"EndSub18、輸入一系列字符串，編程求出長度最大的字符串并輸出其所對應(yīng)的次序。PrivateSubForm_Click()Dima(5)asstring,b(4)asinteger,t%,max%,imax%Fori=1to5a(i)=inputbox("a")NextiFori=0to4b(i)=len(trim(a(i)))NextiMax=1Fori=0to4Ifmax<b(i)thenmax=b(i):imax=iNextiPrint"max=";a(i)Print"cixu=",imax+1Endsub19、利用隨機函數(shù)生成一個4X4的矩陣(即二維矩陣)，范圍是［20,50］內(nèi)的整數(shù)輸出該矩陣所有數(shù)據(jù)之和PrivateSubForm_Click()Dima%(3,3)Fori=0To3Forj=0To3a(i,j)=Int(Rnd*31+20)PrintTab(j*5);a(i,j);NextjNextis=a(0,0)+a(1,1)+a(2,2)+a(3,3)+a(3,0)+a(2,1)+a(1,2)+a(0,3)Prints;EndSub20、輸入一系列字符串，將字符串按遞減次序排列。請編程實現(xiàn)。Dima()AsString,n%,i%,j%PrivateSubCommand1_Click()n=Text1ReDima(1Ton)AsStringFori=LBound(a)ToUBound(a)a(i)=InputBox("請輸入字符串")Picture1.Printa(i);Spc(1);NextiEndSubPrivateSubCommand2_Click()Fori=1TonForj=1Ton-iForj=0To3Forj=0To3Fori=1To10Fori=1To10Ifa(j)<a(j+1)Thent=a(j):a(j)=a(j+1):a(j+1)=tNextjNextiFori=1TonPicture2.Printa(i);Spc(1);NextiEndSubPrivateSubForm_Load()Text1=""EndSub21、隨機產(chǎn)生10個［30,100］內(nèi)的整數(shù)，求最大值、最小值和平均值。Dima(1To10)AsInteger,amin,amax,i%,avera!PrivateSubForm_Click()a(i)=Int(Rnd*71+30)Nextiamin=a(1)amax=a(1)avera=a(1)Fori=2To10Ifa(i)>amaxThenamax=a(i)Ifa(i)<aminThenamin=a(i)avera=avera+a(i)NextiFori=1To10Printa(i);NextiPrintPrint"max=";amax,"min=";amin,"avera=";avera/10EndSub22、定義三個4M的二維數(shù)組A,B,C,A和B中的元素均隨機生成，數(shù)組A的范圍是1?20,數(shù)組B的范圍是100?200,數(shù)組C是A和B相乘得到的。請編程生成并輸出A,B,C。(相加)Dima%(3,3),b%(3,3),c%(3,3)PrivateSubCommand1_Click()Picturel.ClsFori=0To3Forj=0To3Picture1.PrintTab(j*6);a(i,j);NextjPicture1.PrintNextiEndSubPrivateSubCommand2_Click()Picture2.ClsFori=0To3Picture2.Printb(i,j);"";NextjPicture2.PrintNextiEndSubPrivateSubCommand3_Click()Picture3.ClsFori=0To3Forj=0To3Picture3.PrintTab(j*7);c(i,j);NextjPicture3.PrintNextiEndSubPrivateSubFormLoad()23、隨機產(chǎn)生15個小寫字母，放在字符數(shù)組中提示：c=chr(int(rnd*26+97))PrivateSubCommand1_Click()Dimc$(14),i%Picturel.ClsFori=0To14c(i)=Chr(Int(Rnd*26+97))NextiFori=0To14Picturel.Printc(i);NextiEndSub24、隨機產(chǎn)生10個［30,100］內(nèi)的整數(shù)，求最大值及所對應(yīng)的下標PrivateSubForm_Click()Dima(1To10)AsInteger,i%,maxa%,m%Fori=1To10a(i)=Int(Rnd*70)+30Nextimaxa=a(1)Fori=2To10Ifa(i)>a(1)Thenmaxa=a(i):m=iEndIfNextiFori=1To10Printa(i);NextiPrint"maxa="&maxa;"下標為"&mEndSub25、定義三個4X4的二維數(shù)組A,B,C,A和B中的元素均隨機生成，數(shù)組A范圍是1?20,數(shù)組B的范圍是100?200,數(shù)組C是A和B相加得到的。請編程生成并輸出A,B,CoPrivate