大學(xué)計(jì)算機(jī)VB考試上機(jī)題庫

1、1、求100以內(nèi)的素?cái)?shù)。PrivateSubForm_Click()Dimi%,j%Fori=2To100Forj=2Toi-1IfiModj=0ThenExitForNextjIfj=iThenPrintiNextiEndSub2、從鍵盤輸入任意長(zhǎng)度的字符串，要求將字符順序倒置，例如，將輸入的“ABCDEFG”變換成“GFEDCBA”。PrivateSubCommand1_Click()Dima$,I%,c$,d$,n%a=InputBox$(輸入字符串)n=Len(a)ForI=1ToInt(n2)c=Mid(a,I,1)Mid(a,I,1)=Mid(a,n-I+1,1)Mid (a,n-

2、I+1,1)=cNextIPrintaEndSub3、計(jì)算0200之間所有能被11或5整除的數(shù)之和PrivateSubForm_Click()Dimn%,i%n=0Fori=1To200IfiMod11=0OriMod5=0Thenn=n+iEndIfNextiPrintnEndSub4、輸入一年份，判斷它是否為閏年，并顯示有關(guān)信息。（判斷閏年的條件是：年份能被4整除但不能被100整除，或者能被400整除）PrivateSubCommand1_Click()Dimy%y=InputBox(請(qǐng)輸入年數(shù))IfyMod4=0AndyMod1000OryMod400=0ThenMsgBox(y&年是閏

3、年)ElseMsgBox(y&年是平年)EndIfEndSub5、已知x,y,z3個(gè)變量中存放了3個(gè)不同的數(shù)，比較它們的大小并進(jìn)行調(diào)整，使得xyyThent=x:x=y:y=tIfxzThent=x:x=z:z=tIfyzThent=y:y=z:z=tPrint排序后;x;y;zEndSub6、求s=a+aa+aaa+.aaaaa（n個(gè)a），其中a和n的值隨機(jī)產(chǎn)生，a的范圍是1,9的整數(shù)，n的范圍是5,10。如a=3,n=6,則s=3+33+333+3333+33333+333333。編程確定n和a的值，并計(jì)算s。PrivateSubForm_Click()Dims!,t!,i!,a%,n%a

4、=Int(Rnd*9+1)n=Int(Rnd*6+5)t=0:s=0Printa=;a,n=;nFori=1Tont=t*10+as=s+tPrintt;NextiPrintPrints=;sEndSub7、計(jì)算100300之間所有能被3和7整除的數(shù)之和。PrivateSubForm_Click()Fori=100To300IfiMod21=0Thens=s+iPrinti;EndIfNextiPrintPrints=;sEndSub8、編程求200-400范圍內(nèi)5的倍數(shù)或7的倍數(shù)之和。(一個(gè)數(shù)如果同時(shí)是7和5的倍數(shù)，則只能加一次。)PrivateSubCommand1_Click()Dims

5、1%,s2%,s3%,i%S1=0S2=0Fori=200to400Ifimod5=0orimod7=0thens1=s1+iEndifNextiFori=200to400Ifimod5=0orimod7=0thens2=s2+iEndifNextiS3=s1-s2Prints3Endsub9、找出被3、5、7除，余數(shù)為1的最小的5個(gè)正整數(shù)。PrivateSubCommand1_Click()DimCountN%,n%CountN=0n=1Don=n+1IfnMod3=1AndnMod5=1AndnMod7=1ThenPrintnCountN=CountN+1EndIfLoopUntilCou

6、ntN=5EndSub10、某次歌曲大獎(jiǎng)賽，有7個(gè)評(píng)委。如果分別輸入7個(gè)評(píng)委對(duì)某個(gè)參賽者的打分?jǐn)?shù)，按照去掉一個(gè)最高分和一個(gè)最低分的計(jì)算辦法，求出該參賽者的平均得分。PrivateSubCommand1_Click()Dimmark!,max!,min!,aver!,i%aver=0Fori=1To7mark=InputBox(輸入第&i&位評(píng)委的打分)Ifi=1Thenmax=mark:min=markElseIfmarkmaxThenmax=markEndIfaver=aver+markNextiaver=(aver-min-max)/5PrintaverEndSub11、編程顯示10050

7、0之間所有的水仙花數(shù)之和。(水仙花數(shù)是3位數(shù)，其各位數(shù)之和等于該數(shù)本身)PrivateSubForm_Click()Dimi%,s%,s1%,s2%,s3%,a!a=0Fori=0To400s=99+is1=(sMod100)10s2=sMod10s3=s100Ifs13+s23+s33=sThena=s+aEndIfNextiPrintaEndSub12、隨機(jī)產(chǎn)生一個(gè)三位正整數(shù)，然后逆序輸出，產(chǎn)生的數(shù)與逆序數(shù)同時(shí)顯示。例如，產(chǎn)生246，輸出是642。Dima%,m%,b%,c%,d%PrivateSubForm_Click()a=Int(Rnd*900+100)Printad=(aMod10

8、)*100b=(aMod100)-(aMod10)c=a100m=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+bcAnda+cbAndb+caThenMsgBox(能構(gòu)成三角形)ElseMsgBox(不能構(gòu)成三角形)EndIfEndSub14、已知數(shù)組a()，編程刪除a中第5個(gè)元素。數(shù)組a中的元素分別為12，6，4，89，7

9、5，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=5Tona(i-1)=a(i)Nextin=n-1ReDimPreservea(n)Fori=0TonPrinta(i);NextiPrintEndSub15、隨機(jī)生成一個(gè)整型的二維數(shù)組，范圍在10,20之間，以上三角形式輸出該數(shù)組。（下三角、全部元素）Dima%(4,4)Dima%(4,4)PrivateSubCommand1_Click(

10、)Picture1.ClsFori=0To4Forj=iTo4Picture1.PrintTab(j*6);a(i,j);NextjPicture1.PrintNextiEndSubPrivateSubForm_Load()Fori=0To4Forj=0To4a(i,j)=Int(Rnd*11+10)NextjNextiEndSub16、利用隨機(jī)函數(shù)生成一個(gè)44的矩陣(即二維矩陣),范圍是20,50內(nèi)的整數(shù),輸出每行中的最大值和下標(biāo)。PrivateSubForm_Click()Dima%(3,3),s0%,s1%,s2%,s3%,b0%,b1%,b2%,b3%Max=40Fori=0To3Fo

11、rj=0To3a(i,j)=Int(Rnd*31+20)PrintTab(j*5);a(i,j);Ifa(0,j)=MaxThens0=a(0,j):b0=jIfa(1,j)=MaxThens1=a(1,j):b1=jIfa(2,j)=MaxThens2=a(2,j):b2=jIfa(3,j)=MaxThens3=a(3,j):b3=jNextjNextiPrintPrint第一行;s0;(;0;b0;)Print第二行;s1;(;1;b1;)Print第三行;s2;(;2;b2;)Print第四行;s3;(;3;b3;)EndSub17、利用隨機(jī)函數(shù)生成一個(gè)44的矩陣(即二維矩陣),范圍是4

12、0,80內(nèi)的整數(shù)，求它的最大值及所對(duì)應(yīng)的下標(biāo)。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其下標(biāo)為;(;b,c;)EndSub18、輸入一系列字符串，編程求出長(zhǎng)度最大的字符串并輸出其所對(duì)應(yīng)的次序。PrivateSubForm_Click()Dima(5)asstring,b(4)asinteger,t%

13、,max%,imax%Fori=1to5a(i)=inputbox(a)NextiFori=0to4b(i)=len(trim(a(i)NextiMax=1Fori=0to4Ifmaxb(i)thenmax=b(i):imax=iNextiPrintmax=;a(i)Printcixu=,imax+1Endsub19、利用隨機(jī)函數(shù)生成一個(gè)44的矩陣(即二維矩陣),范圍是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);N

14、extjNextis=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、輸入一系列字符串，將字符串按遞減次序排列。請(qǐng)編程實(shí)現(xiàn)。Dima()AsString,n%,i%,j%PrivateSubCommand1_Click()n=Text1ReDima(1Ton)AsStringFori=LBound(a)ToUBound(a)a(i)=InputBox(請(qǐng)輸入字符串)Picture1.Printa(i);Spc(1);NextiEndSubPrivateSubCommand2_Click()Fori=1

15、TonForj=1Ton-iIfa(j)amaxThenamax=a(i)Ifa(i)a(1)Thenmaxa=a(i):m=iEndIfNextiFori=1To10Printa(i);NextiPrintmaxa=&maxa;下標(biāo)為&mEndSub25、定義三個(gè)44的二維數(shù)組A,B,C，A和B中的元素均隨機(jī)生成，數(shù)組A范圍是120，數(shù)組B的范圍是100200，數(shù)組C是A和B相加得到的。請(qǐng)編程生成并輸出A,B,C。PrivateSubCommand1_Click()Dima(3,3),b(3,3),c(3,3),t%,m%Fori=0To3Forj=0To3a(i,j)=Int(Rnd*20

16、+1)Picture1.Printa(i,j);NextjNextiPicture1.PrintFori=0To3Forj=0To3b(i,j)=Int(Rnd*101+100)Picture1.Printb(i,j);NextjNextiPicture1.PrintFori=0To3Forj=0To3c(i,j)=a(i,j)+b(i,j)NextjNextiEndSub26、利用隨機(jī)函數(shù)生成一個(gè)44的矩陣(即二維矩陣),范圍是20,50內(nèi)的整數(shù)，求它的兩條對(duì)角線上元素之和。PrivateSubForm_Click()Dima%(3,3)Fori=0To3Forj=0To3a(i,j)=Int(Rnd*31+20)PrintTab(j*5);