vb題庫(kù)-程序設(shè)計(jì)

1、一、一、程序設(shè)計(jì)程序設(shè)計(jì)【程序設(shè)計(jì)】1.題目：編寫函數(shù)fun，函數(shù)的功能是：計(jì)算兩個(gè)正整數(shù)的最大公約數(shù)最大公約數(shù)，并顯示。如：兩個(gè)數(shù)為15、20，結(jié)果顯示“5“要求使用Do...Loop語(yǔ)句來(lái)實(shí)現(xiàn)。答案：D=mModnIfr=0ThenExitDom=nn=rLoopfun=n2.題目：判斷一個(gè)數(shù)是否是素?cái)?shù)素?cái)?shù)。答案：DimiAsIntegerPrime=TrueFi=2ToInt(Sqr(m))IfmModi=0ThenPrime=F

2、alse:ExitFNexti3題目：(事件)單擊窗體。(響應(yīng))求10!10!的值，并將結(jié)果輸出到窗體上。將結(jié)果存入變量SUM中。答案：DimiAsIntegersum=1Fi=1To10sum=sumiNextPrintsum4題目：(事件)單擊窗體。(響應(yīng))求123……100123……100的值，并把結(jié)果輸出在窗體上。結(jié)果存入變量SUMSUM中。答案：DimiAsIntegerFi=1To100sum=sumiNextPrintsu

3、m5題目：編寫函數(shù)fun，函數(shù)的功能是：求1到m之間的偶數(shù)之積偶數(shù)之積。答案：DimyAsDoubley=1IfiModj=0ThenExitFNextIfjInt(Sqr(i))ThenSum=SumiEndIfNextPrintSum9題目：將一個(gè)十進(jìn)制進(jìn)制整數(shù)m轉(zhuǎn)換成→r(2－16)進(jìn)制字符串。方法：將m不斷除r取余數(shù)，直到商為零，以反序得到結(jié)果。下面寫出一轉(zhuǎn)換函數(shù)，參數(shù)idec為十進(jìn)制數(shù)，ibase為要轉(zhuǎn)換成數(shù)的基（如二進(jìn)制的基

4、是2，八進(jìn)制的基是8等），函數(shù)輸出結(jié)果是字符串chr函數(shù)：將函數(shù)：將ii碼轉(zhuǎn)換為對(duì)應(yīng)字母。碼轉(zhuǎn)換為對(duì)應(yīng)字母。答案：DimstrDecR$iDecR%strDecR=““DoWhileidec=10ThenstrDecR=Chr$(65iDecR10)&strDecRElsestrDecR=iDecR&strDecREndIfidec=idecibaseLoopTrDec=strDecR10題目：(事件)單擊按鈕。(響應(yīng))隨機(jī)產(chǎn)生N個(gè)兩位

5、正整數(shù)（N由輸入對(duì)話框輸入，且N0），求出其中的最大數(shù)和最小數(shù)最大數(shù)和最小數(shù)，并在標(biāo)簽框Label1上顯示最大數(shù)與最小數(shù)的差。答案：x=InputBox(“請(qǐng)輸入x“)n=1t=xs=xDoUntilAbs(t)0.00000001n=n1t=t(1)ns=stLoopLabel1.Caption=“s=“&s題目：(事件)單擊窗體。(響應(yīng))已知s=113!15!17!19!s=113!15!17!19!請(qǐng)將s結(jié)果值輸出到窗體上。使用d