2021年vb題庫程序設(shè)計(jì)

程序設(shè)計(jì)'【程序設(shè)計(jì)】1.'題目：編寫函數(shù)fun，函數(shù)功能是：計(jì)算兩個(gè)正整數(shù)最大公約數(shù)，并顯示。如：'兩個(gè)數(shù)為15、20，成果顯示"5"'規(guī)定使用Do...Loop語句來實(shí)現(xiàn)。答案：Dor=mModnIfr=0ThenExitDom=nn=rLoopfun=n2.'題目：判斷一種數(shù)與否是素?cái)?shù)。答案：----------------------DimiAsIntegerPrime=TrueFori=2ToInt(Sqr(m))IfmModi=0ThenPrime=False：ExitForNexti----------------------3,'題目：(事件)單擊窗體。'(響應(yīng))求10!值，并將成果輸出到窗體上。將成果存入變量SUM中。答案：----------------------DimiAsIntegersum=1Fori=1To10sum=sum*iNextPrintsum4,'題目：(事件)單擊窗體。(響應(yīng))求1+2+3+……+100值，并把成果輸出在窗體上。成果存入變量SUM中。答案：----------------------DimiAsIntegerFori=1To100sum=sum+iNextPrintsum----------------------5,'題目：編寫函數(shù)fun，函數(shù)功能是：求1到m之間偶數(shù)之積。答案：----------------------DimyAsDoubley=1DimiAsIntegerFori=1TomIfiMod2=0Theny=y*iEndIfNextfun=y----------------------6,'題目：編寫函數(shù)fun，函數(shù)功能是：依照一種百分制成績(jī)mark（整數(shù)），顯示相應(yīng)五級(jí)制評(píng)估。條件如下：mark不不大于等于90顯示"先進(jìn)"mark不大于90且不不大于等于80顯示"良好"mark不大于80且不不大于等于70顯示"中檔"mark不大于70且不不大于等于60顯示"及格"mark不大于60顯示"不及格"規(guī)定使用Select語句來實(shí)現(xiàn)。答案：SelectCasemarkCaseIs>=90fun="先進(jìn)"CaseIs>=80fun="良好"CaseIs>=70fun="中檔"CaseIs>=60fun="及格"CaseElsefun="不及格"EndSelect7,'題目：(事件)雙擊窗體(響應(yīng))求100以內(nèi)奇數(shù)和，并將成果輸出在窗體上。將成果存入變量SUM中答案：----------------------DimiAsIntegerFori=1To100IfiMod2=1Thensum=sum+iEndIfNextPrintsum----------------------8,'題目：(事件)單擊窗體。'(響應(yīng))輸100-200之間所有素?cái)?shù)，并將這些數(shù)求和，求和成果存入所給變量SUM中。答案：------------------------------------Fori=100To200Forj=2ToSqr(i)IfiModj=0ThenExitForNextIfj>Int(Sqr(i))ThenSum=Sum+iEndIfNextPrintSum------------------------------------9,'題目：將一種十進(jìn)制整數(shù)m轉(zhuǎn)換成→r(2－16)進(jìn)制字符串。辦法：將m不斷除r取余數(shù)，直到商為零，以反序得到成果。下面寫出一轉(zhuǎn)換函數(shù)，參數(shù)idec為十進(jìn)制數(shù)，ibase為要轉(zhuǎn)換成數(shù)基（如二進(jìn)制基是2，八進(jìn)制基是8等），函數(shù)輸出成果是字符串chr函數(shù)：將ascii碼轉(zhuǎn)換為相應(yīng)字母。答案：----------------------DimstrDecR$，iDecR%strDecR=""DoWhileidec<>0iDecR=idecModibaseIfiDecR>=10ThenstrDecR=Chr$(65+iDecR-10)&strDecRElsestrDecR=iDecR&strDecREndIfidec=idec\ibaseLoopTrDec=strDecR----------------------10,'題目：(事件)單擊按鈕。(響應(yīng))隨機(jī)產(chǎn)生N個(gè)兩位正整數(shù)（N由輸入對(duì)話框輸入，且N>0），求出其中最大數(shù)和最小數(shù)，并在標(biāo)簽框Label1上顯示最大數(shù)與最小數(shù)差。答案：--------------------------------x=InputBox("請(qǐng)輸入x")n=1t=xs=xDoUntilAbs(t)<0.00000001n=n+1t=t*(-1)/ns=s+tLoopLabel1.Caption="s="&s--------------------------------'題目：(事件)單擊窗體。'(響應(yīng))已知s=1+1/3!+1/5!+1/7!+1/9!,請(qǐng)將s成果值輸出到窗體上。使用dowhile...loop語句完畢程序答案：----------------------DimiAsIntegeri=1p=1DoWhilei<=9p=p*iIfiMod2=1Then s=s+1/pEndIf i=i+1LoopPrintssum=s----------------------'題目：(事件)單擊窗體。'(響應(yīng))求從100到1000之間所有是3倍數(shù)數(shù)之和，當(dāng)和不不大于3000時(shí)，停止計(jì)算并輸出和。請(qǐng)將成果輸出到窗體上,并存入所給變量SUM中。使用for...next語句完畢程序答案：----------------------DimiAsIntegersum=0fori=100to1000ifimod3=0thensum=sum+iifsum>3000then exitforendifendifi=i+1nextPrintsum----------------------'題目：(事件)單擊窗體。'(響應(yīng))求1-100中為5或7倍數(shù)和。請(qǐng)將成果輸出到窗體上,并存入所給變量SUM中。使用while...wend語句完畢程序答案：----------------------DimiAsIntegeri=1Whilei<=100IfiMod5=0OriMod7=0ThenSum=Sum+iEndIfi=i+1WendPrintSum----------------------'題目：(事件)單擊窗體。'(響應(yīng))求出100以內(nèi)所有素?cái)?shù)和，并將成果輸出到窗體上,并存入所給變量SUM中。答案：----------------------DimiAsIntegerDimjAsIntegerDimkAsIntegerDimbAsBooleanb=FalseFori=2To100b=Falsej=CInt(Sqr(i))Fork=2TojIfiModk=0Thenb=TrueEndIfNextIfb=FalseThensum=sum+iEndIfNextPrintsum----------------------'題目：(事件)單擊窗體。'(響應(yīng))求1!+2!+3!+……+10!值，并在窗體上輸出。成果存入變量L中。答案：----------------------DimiAsIntegerDimsAsLongDimjAsIntegers=1Fori=1To10s=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分）題號(hào):490'-------------------------------------------------'【程序設(shè)計(jì)】'-------------------------------------------------'題目：(事件)單擊窗體。'(響應(yīng))已知sum=1-1/4+1/9-1/16+1/25...-1/100,'請(qǐng)將sum成果值輸出到窗體上。'使用for...next語句完畢程序'-------------------------------------------------答案：----------------------DimiAsIntegerfori=1to10sum=sum+(-1)^(i-1)/(i*i)nextPrintsum----------------------第48題（1.0分）題號(hào):478'-------------------------------------------------'【程序設(shè)計(jì)】'-------------------------------------------------'題目：編寫函數(shù)fun，其功能是:能計(jì)算從1開始到n'自然數(shù)中偶數(shù)平方和。'-------------------------------------------------答案：----------------------DimsumAsInteger，iAsIntegersum=0Fori=2TonStep2sum=sum+i*iNextfun=sum----------------------第49題（1.0分）題號(hào):208'-------------------------------------------------'【程序設(shè)計(jì)】'-------------------------------------------------'題目：請(qǐng)用Select語句編程計(jì)算打折后金額？'折扣辦法如下:'購(gòu)物300如下，無優(yōu)惠（使用MsgBox顯示“無優(yōu)惠”）；'購(gòu)物300以上，95折；'購(gòu)物500以上，9折；'購(gòu)物1000以上，85折；'購(gòu)物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元零鈔，規(guī)定每種零鈔不少于1張，'問有哪幾種組合？將組合數(shù)存入變量OUT中。答案：----------------------DimnAsIntegerDimi%，j%，k%Print"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))國(guó)內(nèi)既有人口為13億，設(shè)年增長(zhǎng)率為1%，計(jì)算多少年后增長(zhǎng)到20億。并將成果輸出在窗體上。將成果存入變量year中。使用dowhile...loop語句完畢程序。答案：----------------------dimpasdoubledimrassingledimnasintegerp=r=0.01dowhilep<000000 p=p+p*r n=n+1loopprint"n=",nyear=n----------------------'題目：應(yīng)用選取法對(duì)數(shù)組A按升序排列基本思想:1）對(duì)有n個(gè)數(shù)序列（存儲(chǔ)在數(shù)組a(n)中），從中選出最小數(shù)，與第1個(gè)數(shù)互換位置；2）除第1個(gè)數(shù)外，別的n-1個(gè)數(shù)中選最小數(shù)，與第2個(gè)數(shù)互換位置；3）依次類推，選取了n-1次后，這個(gè)數(shù)列已按升序排列。答案：----------------------Dimi，j，imin，tempAsIntegerFori=1Ton-1imin=iForj=i+1TonIfa(imin)>a(j)Thenimin=jNextjtemp=a(i)a(i)=a(imin)a(imin)=tempNexti----------------------'題目：(事件)單擊窗體。'(響應(yīng))求一種數(shù),它除3余2，除5余3，除7余2，請(qǐng)將滿足上面條件最小數(shù)保存到sum變量中。使用for...next語句完畢程序答案：----------------------DimiAsIntegerFori=2To1000IfiMod3=2AndiMod5=3AndiMod7=2ThenPrintiExitForEndIfNextisum=i----------------------'題目：(事件)單擊窗體。'(響應(yīng))生成一種一維數(shù)組(10個(gè)數(shù)組元素依此為：15、23、72、43、96、23、3、65、88、17)，寫程序求出這個(gè)數(shù)組中最大值、最小值和平均值，并輸出在窗體上。將最大值，最小值，平均值分別存入變量Max,Min,Aver中答案：----------------------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+1×2+1×2×3+…+1×2×3×…×10，并將成果存到變量S中答案：----------------------Dimi，jAsIntegerDimkAsLongk=1s=0Fori=1To10Forj=1Toik=k*jNexts=s+kk=1NextPrint(CStr(s))----------------------'題目：(事件)單擊窗體。'(響應(yīng))求100到500之間奇數(shù)和，將成果輸出在窗體上并存入變量SUM中。使用do...loopuntil語句完畢程序答案：----------------------DimiAsIntegeri=100doIfiMod2=1Then sum=sum+iEndIfi=i+1loopuntili>500Printsum----------------------'題目：(事件)單擊窗體。'(響應(yīng))已知S=1+1/4+1/9+1/16+1/25+…+1/100，成果輸出在窗體上。答案：----------------------DimiAsIntegers=0Fori=1To10s=s+1/(i^i)NextPrint(s)----------------------'題目：(事件)單擊命令按鈕Command1。'(響應(yīng))計(jì)算如下表達(dá)式s值,s=1+(1*2)+(1*2*3)+……+(1*2*3*……*6)并將成果輸出到文本框Text1中。答案：DimjAsIntegerDimiAsIntegerj=1s=0Fori=1To6j=j*is=s+jNextiText1.Text=s題目：求兩個(gè)數(shù)m,n最大公約數(shù)p和最小公倍數(shù)q答案：----------------------nm=n*mIfm<nThent=m：m=n：n=tr=mModnDoWhile(r<>0)m=nn=rr=mModnLoopp=nq=nm/n----------------------'題目：編寫函數(shù)fun，函數(shù)功能是：計(jì)算n門課程平均值，計(jì)算成果作為函數(shù)值返回。例如，若有5門課程成績(jī)是：92，76，69，58，88，則函數(shù)值為76.6。答案：----------------------DimiAsIntegerDimyAsSingleFori=1Tony=y+a(i)Nextfun=y/n----------------------'題目：(事件)單擊窗體。'(響應(yīng))求200~300之間既能被3整除又能被7整除數(shù)。并求出所有數(shù)之和存入變量SUM中答案：----------------------DimiAsIntegerFori=201To300If((iMod3)=0)And((iMod7)=0)ThenPrint(CStr(i))sum=sum+iEndIfNextPrintsum----------------------'題目：(事件)單擊窗體'(響應(yīng))用輸入框輸入一自然數(shù)，判斷是"正數(shù)"、"負(fù)數(shù)"或"零"，并依照輸入數(shù)用消息框顯示"正數(shù)"、"負(fù)數(shù)"或"零"。答案：-------------------------------------n=InputBox("輸入一種自然數(shù)")Ifn>0Thenresult="正數(shù)"ElseIfn<0Thenresult="負(fù)數(shù)"ElseIfn=0Thenresult="零"EndIfMsgBox"輸入數(shù)據(jù)"&n&"為："&result或者-------------------------------------'題目：(事件)雙擊窗體。'(響應(yīng))求出50以內(nèi)所有奇數(shù)和。將成果存入變量SUM中。答案：----------------------DimiAsIntegerFori=1To50IfiMod2=1Thensum=sum+iEndIfNextPrintsum----------------------'題目：編寫函數(shù)fun，函數(shù)功能是：判斷一種字符是'字母字符、數(shù)字字符還是其她字符，并做相應(yīng)顯示。字母字符顯示字符串"字母"數(shù)字字符顯示字符串"數(shù)字"'其她字符顯示字符串"其她"規(guī)定使用IF語句來實(shí)現(xiàn)。答案：IfUCase(n)>="A"AndUCase(n)<="Z"Thenfun="字母"ElseIfn>="0"Andn<="9"Thenfun="數(shù)字"Elsefun="其她"EndIf'題目：(事件)單擊窗體。'(響應(yīng))求50以內(nèi)所有偶數(shù)和，并在窗體上輸出出來。將成果存入變量S中。答案：----------------------DimiAsIntegerFori=2To50If(iMod2)=0Thens=s+iEndIfNextPrint(CStr(s))----------------------'題目：(事件)單擊窗體。'