vb題庫-程序設(shè)計

1、1. 一、程序設(shè)計'【程序設(shè)計】'題目：編寫函數(shù)fun,函數(shù)的功能是：計算兩個正整數(shù)的最大公約數(shù)，并顯示。如:'兩個數(shù)為15、20,結(jié)果顯示"5"'要求使用Do.Loop語句來實現(xiàn)。答案：Dor=mModnIfr=0ThenExitDom=n2. n=rLoopfun=n'題目：判斷一個數(shù)是否是素數(shù)。答案：DimiAsIntegerPrime=TrueFori=2ToInt（Sqr（m）IfmModi=0ThenPrime=False:ExitFor3, Nexti'題目：（事件）單擊窗體。'（響應(yīng)）求10!的值，并將

2、結(jié)果輸出到窗體上。將結(jié)果存入變量SUM中。答案：DimiAsIntegersum=1Fori=1To10sum=sum*iNext4, Printsum'題目：（事件）單擊窗體。（響應(yīng)）求1+2+3十+100的值，并把結(jié)果輸出在窗體上。結(jié)果存入變量SUM中答案：DimiAsIntegerFori=1To100sum=sum+iNextPrintsum'題目：編寫函數(shù)fun，函數(shù)的功能是：求1到m之間的偶數(shù)之積答案：DimyAsDoubley=1DimiAsIntegerFori=1TomIfiMod2=0Theny=y*iEndIfNext5, fun=y'題目：編寫函

3、數(shù)fun，函數(shù)的功能是：根據(jù)一個百分制成績mark（整數(shù)），顯示對應(yīng)五級制的評定。條件如下：mark大于等于90顯示”優(yōu)秀”mark小于90且大于等于80顯示"良好"mark小于80且大于等于70顯示"中等"mark小于70且大于等于60顯示”及格”mark小于60顯示"不及格"要求使用Select語句來實現(xiàn)。答案：SelectCasemarkCaseIs>=90fun="優(yōu)秀"CaseIs>=80fun="良好"CaseIs>=70fun="中等"Case

4、Is>=60fun="及格"CaseElsefun="不及格"EndSelect'題目：（事件）雙擊窗體（響應(yīng)）求100以內(nèi)奇數(shù)的和，并將結(jié)果輸出在窗體上。將結(jié)果存入變量SUM中答案：DimiAsIntegerFori=1To100IfiMod2=1Thensum=sum+iEndIfNext6, Printsum'題目：（事件）單擊窗體。'（響應(yīng)）輸100-200之間所有素數(shù)，并將這些數(shù)求和，求和結(jié)果存入所給變量SU"答案：Fori=100To200Forj=2ToSqr（i）IfiModj=0ThenExitF

5、orNextIfj>Int(Sqr(i)ThenSum=Sum+i7, EndIfNextPrintSum'題目：將一個十進制整數(shù)m轉(zhuǎn)換成-r（2-16）進制字符串。方法：將m不斷除r取余數(shù)，直到商為零，以反序得到結(jié)果。下面寫出一轉(zhuǎn)換函數(shù)，參數(shù)idec為十進制數(shù)，ibase為要轉(zhuǎn)換成數(shù)的基（如二進制的基是2，八進制的基是8等），函數(shù)輸出結(jié)果是字符串chr函數(shù)：將ascii碼轉(zhuǎn)換為對應(yīng)字母。答案：DimstrDecR$,iDecR%strDecR=""DoWhileidec<>0iDecR=idecModibaseIfiDecR>=10Then

6、strDecR=Chr$（65+iDecR-10）&strDecRElsestrDecR=iDecR&strDecREndIfidec=idecibaseLoop8, TrDec=strDecR'題目：（事件）單擊按鈕。（響應(yīng)）隨機產(chǎn)生N個兩位正整數(shù)（N由輸入對話框輸入，且N>0），求出其中的最大數(shù)和最小數(shù)并在標(biāo)簽框Label1上顯示最大數(shù)與最小數(shù)的差。答案：x=InputBox（"請輸入x"）n=1t=xs=xDoUntilAbs（t）<0.00000001n=n+1t=t*（-1）/ns=s+tLoopLabel1.Caption=&

7、quot;s="&s'題目：（事件）單擊窗體。'（響應(yīng)）已知s=1+1/3!+1/5!+1/7!+1/9!,請將s結(jié)果值輸出到窗體上。使用dowhile.loop語句完成程序答案：DimiAsIntegeri=1p=1DoWhilei<=9p=p*iIfiMod2=1Thens=s+1/pEndIfi=i+1LoopPrintssum=s,題目：（事件）單擊窗體。,（響應(yīng)）求從100到1000之間所有是3的倍數(shù)的數(shù)之和，當(dāng)和大于3000時，停止計算并輸出和。請將結(jié)果輸出到窗體上，并存入所給變量SU"。使用for.next語句完成程序答案：Dim

8、iAsIntegersum=0fori=100to1000ifimod3=0thensum=sum+iifsum>3000thenexitforendifendifi=i+1nextPrintsum,題目：（事件）單擊窗體。'（響應(yīng)）求1-100中為5或7的倍數(shù)的和。請將結(jié)果輸出到窗體上，并存入所給變量SUM中。使用while.wend語句完成程序答案：DimiAsIntegeri=1Whilei<=100IfiMod5=0OriMod7=0ThenSum=Sum+iEndIfi=i+1WendPrintSum'題目：（事件）單擊窗體。'（響應(yīng)）求出100以

9、內(nèi)所有素數(shù)的和，并將結(jié)果輸出到窗體上，并存入所給變量SUK答案：DimiAsIntegerDimjAsIntegerDimkAsIntegerDimbAsBooleanb=FalseFori=2To100b=Falsej=CInt（Sqr（i）Fork=2TojIfiModk=0Thenb=TrueEndIfNextIfb=FalseThensum=sum+iEndIfNextPrintsum,題目：（事件）單擊窗體。,（響應(yīng)）求1!+2!+3!+10!的值，并在窗體上輸出。結(jié)果存入變量L中答案：DimiAsIntegerDimsAsLongDimjAsIntegers=1Fori=1To10

10、s=s*il=l+sNextPrintStr（l）'題目：編寫函數(shù)fun,函數(shù)的功能是：求一個四位數(shù)的各位數(shù)字的立方和答案：DimdAsInteger,kAsInteger,sAsIntegerWhilen>0d=nMod10s=s+d*d*dn=n/10Wendfun=s第46題（1.0分）題號:490''【程序設(shè)計】''題目：（事件）單擊窗體。'（響應(yīng)）已知sum=1-1/4+1/9-1/16+1/25.-1/100,請將sum結(jié)果值輸出到窗體上。,使用for.next語句完成程序答案：DimiAsIntegerfori=1to10su

11、m=sum+(-1)人(i-1)/(i*i)nextPrintsum第48題（1.0分）題號:478''【程序設(shè)計】'題目：編寫函數(shù)fun，其功能是：能計算從1開始到n的,自然數(shù)中偶數(shù)的平方的和。答案：DimsumAsInteger,iAsIntegersum=0Fori=2TonStep2sum=sum+i*iNextfun=sum第49題（1.0分）題號:208''【程序設(shè)計】'題目：請用Select語句編程計算打折后的金額？'折扣方法如下：,購物300以下，無優(yōu)惠（使用MsgBox顯示“無優(yōu)惠”）；'購物300以上，95折；

12、'購物500以上，9折；'購物1000以上，85折；'購物5000以上，8折？'答案：SelectCasenCaseIs>5000n=n*0.8CaseIs>1000n=n*0.85CaseIs>500n=n*0.9CaseIs>300n=n*0.95CaseElseMsgBox"無優(yōu)惠"EndSelect'題目：將一張面值為100元的人民幣等值換成100張5元、1元和0.5元的零鈔，要求每種零鈔不少于1張，,問有哪幾種組合？將組合數(shù)存入變量OUT中。答案：DimnAsIntegerDimi%,j%,k%Pri

13、nt"5?1?0.5?"Fori=1To20Forj=1To100-ik=100-i-jIf5#*i+1#*j+0.5*k=100ThenPrinti,j,kn=n+1EndIfNextjNextiout=n'題目：(事件)單擊窗體。'(響應(yīng))我國現(xiàn)有人口為13億，設(shè)年增長率為1%計算多少年后增加到20億。并將結(jié)果輸出在窗體上。將結(jié)果存入變量year中。使用dowhile.loop語句完成程序。答案：dimpasdoubledimrassingledimnasintegerp=1300000000r=0.01dowhilep<2000000000p=p

14、+p*rn=n+1loopprint"n=”,nyear=n'題目：應(yīng)用選擇法對數(shù)組A按升序排列基本思想：1) 對有n個數(shù)的序列(存放在數(shù)組a(n)中)，從中選出最小的數(shù)，與第1個數(shù)交換位置;除第1個數(shù)外，其余n-1個數(shù)中選最小的數(shù)，與第2個數(shù)交換位置；依次類推，選擇了n-1次后，這個數(shù)列已按升序排列。答案：Dimi,j,imin,tempAsIntegerFori=1Ton-1imin=iForj=i+1TonIfa(imin)>a(j)Thenimin=jNextjtemp=a(i)a(i)=a(imin)a(imin)=tempNexti'題目：(事件)單

15、擊窗體。'(響應(yīng))求一個數(shù)，它除3余2,除5余3,除7余2,請將滿足上面條件的最小數(shù)保存到sum變量中。使用for.next語句完成程序答案：DimiAsIntegerFori=2To1000IfiMod3=2AndiMod5=3AndiMod7=2ThenPrintiExitForEndIfNextisum=i'題目：(事件)單擊窗體。'(響應(yīng))生成一個一維數(shù)組(10個數(shù)組元素依此為：15、23、72、43、96、23、3、65、88、17),寫程序求出這個數(shù)組中的最大值、最小值和平均值，并輸出在窗體上。將最大值，最小值，平均值分別存入變量Max,Min,Aver中答

16、案：Dima(9)AsIntegerDimi,sAsIntegera(0)=15a(1)=23a(2)=72a(3)=43a(4)=96a(5)=23a(6)=3a(7)=65a(8)=88a(9)=17max=a(0)min=a(0)s=0Fori=0To9Ifa(i)>maxThenmax=a(i)EndIfIfa(i)<minThenmin=a(i)EndIfs=s+a(i)Nextaver=Int(s/10)Print(CStr(max)Print(CStr(min)Print(CStr(aver)題目：（事件）雙擊窗體。（響應(yīng)）求s=1+1X2+1X2X3+1X2X3XX

17、10,并將結(jié)果存至u變量答案：Dimi,jAsIntegerDimkAsLongk=1S=0Fori=1To10Forj=1Toik=k*jNexts=s+kk=1NextPrint（CStr（s）,題目：（事件）單擊窗體。,（響應(yīng)）求100到500之間奇數(shù)的和，將結(jié)果輸出在窗體上并存入變量SUM中。使用do.loopuntil語句完成程序答案：DimiAsIntegeri=100doIfiMod2=1Thensum=sum+iEndIfi=i+1loopuntili>500Printsum,題目：（事件）單擊窗體。,（響應(yīng)）已知S=1+1/4+1/9+1/16+1/25+1/100,結(jié)

18、果輸出在窗體上答案：DimiAsIntegers=0Fori=1To10s=s+1/（i人i）NextPrint（s）,題目：(事件)單擊命令按鈕Command1'(響應(yīng))計算如下表達式s的值，s=1+(1*2)+(1*2*3)+(1*2*3*6)并將結(jié)果輸出到文本框Text1中。答案：DimjAsIntegerDimiAsIntegerj=1S=0Fori=1To6j=j*is=s+jNextiText1.Text=s題目：求兩個數(shù)m,n的最大公約數(shù)p和最小公倍數(shù)q答案：nm=n*mIfm<nThent=m:m=n:n=tr=mModnDoWhile(r<>0)m=

19、nn=rr=mModnLoopp=nq=nm/n'題目：編寫函數(shù)fun,函數(shù)的功能是：計算n門課程的平均值，計算結(jié)果作為函數(shù)值返回例如，若有5門課程的成績是：92,76,69,58,88,則函數(shù)的值為76.6o答案：DimiAsIntegerDimyAsSingleFori=1Tony=y+a(i)Nextfun=y/n,題目：(事件)單擊窗體。'(響應(yīng))求200300之間既能被3整除又能被7整除的數(shù)。并求出所有數(shù)之和存入變量SUM中答案：DimiAsIntegerFori=201To300If(iMod3)=0)And(iMod7)=0)ThenPrint(CStr(i)su

20、m=sum+iEndIfNextPrintsum'題目：（事件）單擊窗體'（響應(yīng)）用輸入框輸入一自然數(shù)，判斷是"正數(shù)"、"負(fù)數(shù)"或"零"，并根據(jù)輸入的數(shù)用消息框顯示"正數(shù)"、"負(fù)數(shù)"或"零"。答案：n=InputBox（"輸入一個自然數(shù)"）Ifn>0Thenresult="正數(shù)"Elselfn<0Thenresult="負(fù)數(shù)"ElseIfn=0Thenresult="零"

21、;EndIfMsgBox"輸入的數(shù)據(jù)"&n&"為："&result或者'題目：（事件）雙擊窗體。'（響應(yīng)）求出50以內(nèi)所有奇數(shù)的和。將結(jié)果存入變量SUM中答案：DimiAsIntegerFori=1To50IfiMod2=1Thensum=sum+iEndIfNextPrintsum,題目：編寫函數(shù)fun，函數(shù)的功能是：判斷一個字符是字母字符、數(shù)字字符還是其他字符，并做相應(yīng)的顯示。字母字符顯示字符串"字母"數(shù)字字符顯示字符串"數(shù)字",其他字符顯示字符串其他"要求使用IF語句來實現(xiàn)。答案：IfUCase（n）>="A"AndUCase（n）<="Z"Thenfun="字母”ElseIfn>="0"Andn<="9"Thenfun="數(shù)字"Elsefun="其他"EndIf,題目：（事件）單擊窗體。,（響應(yīng)）