VB程序設(shè)計(jì)考試題庫(kù)-考試專(zhuān)用

程序設(shè)計(jì)題

1、題目：（事件）單擊窗體（響應(yīng)）用輸入框輸入一自然數(shù)，判斷就是"正數(shù)”、"負(fù)數(shù)或“零"，并根

據(jù)輸入得數(shù)用消息框顯示”正數(shù)“、"負(fù)數(shù)〃或“零”.

2、題目：（事件）單擊窗體。（響應(yīng)）求200?300之間既能被3整除又能被7整除得數(shù).并求出所

有數(shù)之與存入變量SUM中

3、題目：?jiǎn)螕舸绑w。（響應(yīng)）已知S=l+l/4+l/9+1/16+1/25+-+1/100,結(jié)果輸出在窗體上。

4、題目：（事件）單擊窗體.（響應(yīng)）在窗體上打印數(shù)列2/I,3/2,5/3,8/5,13/8…得前10項(xiàng)，

并求其與，將與保存在變量s中。

5、題目：（事件）雙擊窗體。（響應(yīng)）把一元鈔票換成一分、二分與五分得硬幣每種至少有一枚），求出

其所有得換法，把結(jié)果輸出在窗體上。將所有得換法得數(shù)目存入變量N中

6、題目:單擊窗體。）求1!+2!+3!+4!+5!并將結(jié)果輸出到窗體上。結(jié)果存入變量S中

7、題目：（事件）單擊窗體。（響應(yīng)）生成一個(gè)一維數(shù)組（10個(gè)數(shù)組元素依此為：

'15、23、72、43、96、23、3、65、88、17

寫(xiě)程序求出這個(gè)數(shù)組中得最大值、最小值與平均值，并輸出在窗體上。將最大值，最小值，平均值分別存

入變量Max,Min,Aver中

8、題目:(事件)單擊窗體。(響應(yīng))在窗體上輸出100?200之間得所有合數(shù)。求出所有數(shù)之與存入

SUM中所謂合數(shù)就是指自然數(shù)中能被1與本數(shù)整除以外，還能被其她數(shù)整除得數(shù)。

9、題目：(事件)單擊窗體.(響應(yīng))求10?20之間所有素?cái)?shù)得乘積并輸出在窗體上。將結(jié)果存入變

量L中。

10、題目：(事件)單擊窗體。(響應(yīng))求1-1/2+1/3-1/4+.......+1/99-1/100得值。

將結(jié)果存入變量J中。

1題

n二InputBox(〃輸入一個(gè)自然數(shù)”)

Ifn>0Then

result=〃正數(shù)"

Elselfn<0Then

result=”負(fù)數(shù)〃

Elselfn=0Then

result=〃零”

EndIf

MsgBox〃輸入得數(shù)據(jù)”&n&〃為：〃&result

2題

DimiAsInteger

Fori=201To300

If((iMod3)=0)And((iMod7)=0)Then

Print(CStr(i))

sum=sum+i

EndIf

Next

Printsum

3題

DimiAsInteger

s=0

Fori=1To10

s=s+1/(ii)

Next

Print(s)

4題

Dimi,j,k,mAsInteger

s=0:i=2:j=1

Fork=1To10

s=s+i/j

m二j

Print(CStr(i))&〃/〃&CStr(j)

j=i

i=i+m

Next

5題

Dimi,j,kAsInteger

Fori=1To100

Forj=1To50

Fork=1To20

If((i+2*j+k*5)=100)Then

Print(CStr(i))

Print(CStr(j))

Print(CStr(k))

n=n+1

EndIf

Next

Next

Next

6題

Dimi,j,kAsInteger

Fori=1To5

k=1

Forj=1Toi

k=k*j

Next

s=s+k

Next

Print(CStr(s))

7題

Dima(9)AsInteger

Dimi,sAsInteger

a(0)=15：a(l)=23:a(2)=72

a(3)=43:a(4)=96：a(5)=23

a(6)=3：a(7)=65:a(8)=88

a(9)=17：max=a(0)：min=a(0)

s二0

Fori=0To9

Ifa(i)>maxThen

max=a(i)

EndIf

Ifa(i)<minThen

min=a(i)

EndIf

s=s+a(i)

Next

aver=Int(s/10)

Print(CStr(max))

Print(CStr(min))

Print(CStr(aver))

8題

Dimi,j,sAsInteger

Fori=100To200

Forj=2ToSqr(i)

If(iModj)二0Then

Print(CStr(i))

sum-sum+i

ExitFor

EndIf

Next

Next

Printsum

9題

Dimi%,j%,bAsBoolean

1=1：b=False

Fori=10To20

Forj=2Toi-2

IfiModj=0Then

b=True

EndIf

Next

Ifb=FalseThen

1=1*i

EndIf

b=Fa1se

Next

PrintStr(1)

10題

DimiAsInteger

Fori=1To100

IfiMod2=1Then

j=j+1/i

E1seIfiMod2二0Then

j=j-1/i

EndIf

Next

Printj

11、題目：(事件)單擊窗體.(響應(yīng))如果一個(gè)數(shù)得真因子之與等于這個(gè)數(shù)本身，則稱(chēng)這樣得數(shù)為“完

全數(shù)”。例如，整數(shù)28得真因子為1、2、4、7、11,其與就是28。因此28就是一個(gè)完全數(shù)。請(qǐng)編寫(xiě)一個(gè)程

序，求出500以?xún)?nèi)最大得完全數(shù)。并存入變量SUM中。使用for、、、next語(yǔ)句完成程序

12、題目：應(yīng)用選擇法對(duì)數(shù)組A按升序排列

13、題目：?jiǎn)螕舸绑w。求一個(gè)數(shù)，它除3余2,除5余3,除7余2,請(qǐng)將滿(mǎn)足上面條件得最小數(shù)保存

到sum變量中.使用for、、、next語(yǔ)句完成程序.

14、題目:編寫(xiě)函數(shù)fun,函數(shù)得功能就是：判斷一個(gè)字符就是字母字符、數(shù)字字符還就是其她字符，

并做相應(yīng)得顯示。字母字符顯示字符串“字母"，數(shù)字字符顯示字符串“數(shù)字"，其她字符顯示字符串“

其她“，要求使用IF語(yǔ)句來(lái)實(shí)現(xiàn).

PrivateFunctionfun(nAsString)AsString

'**********Program**********

‘**********End**********

EndFunction

PrivateSubForm_Load()

Show

Printfun(“A")

Printfun("9H)

Printfun(〃&〃)

NJIT_VB

EndSub

PrivateSubNJIT_VB()

DimiAsInteger

DimIAsInteger

Dima(10)AsString*1

DimfinAsInteger

Dimf0utAsInteger

fIn=FreeFile

OpenApp>Path&"\in、dat"ForInputAs#fln

fOut=FreeFile

0penApp、Path&"\out、dat"ForOutputAs#fOut

Fori=1To10

LineInput#fln,a(i)

Print#f0ut,fun(a(i))

Next

C1ose#fIn

Close#fOut

EndSub

15、題目:編寫(xiě)函數(shù)fun,函數(shù)得功能就是：根據(jù)一個(gè)百分制成績(jī)mark(整數(shù))，顯示對(duì)應(yīng)五級(jí)制得評(píng)

定.條件如下：

'mark大于等于90顯示"優(yōu)秀"

Jmark小于90且大于等于80顯示“良好”

'mark小于80且大于等于70顯示“中等”

'mark小于70且大于等于60顯示“及格”

'mark小于60顯示“不及格”

'要求使用IF語(yǔ)句來(lái)實(shí)現(xiàn)。

PrivateFunctionfun(markAsInteger)AsString

'**********Program**********

'********大*End**********

EndFunction

PrivateSubForm_Load()

Show

Printfun(90)

NJIT_VB

EndSub

PrivateSubNJIT_VB()

DimiAsInteger

DimsAsString

Dima(10)AsInteger

DimfInAsInteger

DimfOutAsInteger

fin=FreeFile

OpenApp、Path&'*\in>dat'*ForInputAs#fln

fOut=FreeFile

OpenApp、Path&"\out、dat"ForOutputAs#fOut

Fori=1To10

LineInput#fIn,s

a(i)=Val(s)

Print#fOut,fun(a(i))

Next

Close#fIn

Close#fOut

EndSub

16、題目：編寫(xiě)函數(shù)fun,函數(shù)得功能就是：當(dāng)x得初值為10,每年增長(zhǎng)率為千分之八，計(jì)算多少年以

后x得值能達(dá)到y(tǒng)，并顯示所需年數(shù)得值(變量名必須為n).

'要求使用DoWhi1e、、、Loop語(yǔ)句來(lái)實(shí)現(xiàn)。

PrivateFunctionfun(yAsSingle)AsLong

DimxAsSingle,nAsLong

'**********Program大*********

***********End**********

EndFunction

PrivateSubForm_Load()

Show

Printfun(15)

NJIT_VB

EndSub

PrivateSubNJIT_VB()

DimiAsInteger

Dima(10)AsString

DimflnAsInteger

DimfOutAsInteger

fln=FreeFile

OpenApp、Path&"\in、dat"ForInputAs#fln

fOut=FreeFile

OpenApp>Path&〃\out、dat"ForOutputAs#fOut

Fori=1To10

LineInput#fIn,a(i)

Print#fOut,Trim(Str(fun(Vai(a(i)))))

Next

Close#fln

C1ose#fOut

EndSub

17、題目:編寫(xiě)函數(shù)fun,函數(shù)得功能就是：求從m到n得乘積并顯示，'如:m為2,n為4時(shí),顯示”

24…存儲(chǔ)連乘得乘積得變量必須為Product，要求使用For語(yǔ)句來(lái)實(shí)現(xiàn)。

PrivateFunctionfun(mAsInteger,nAsInteger)AsLong

DimProductAsDoub1e,tAsInteger

Ifm>nThent=m：m=n：n=t

'**********Program**********

'**********End**********

EndFunction

PrivateSubForm_Load()

Show

Printfun(4,2)

NJIT_VB

EndSub

PrivateSubNJIT_VB()

DimiAsInteger

Dima(10)AsString

DimfInAsInteger

DimfOutAsInteger

fln=FreeFile

OpenApp、Path&"\in、dat"ForInputAs#fIn

fOut=FreeFiIe

OpenApp>Path&"\out、dat"ForOutputAs#fOut

Fori=1To10Step2

LineInput#fIn,a(i)

LineInput#fIn,a(i+1)

Print#fOut,Trim(Str(fun(Vai(a(i)),Vai(a(i+1)))))

Next

Close#fIn

Close#fOut

EndSub

18、題目:編寫(xiě)函數(shù)fun,函數(shù)得功能就是:判斷一個(gè)數(shù)就是否為素?cái)?shù).并顯示相應(yīng)提示。如：

該數(shù)為素?cái)?shù)時(shí),顯示”素?cái)?shù)七該數(shù)為非素?cái)?shù)時(shí)，顯示“非素?cái)?shù)”'要求使用For語(yǔ)句來(lái)實(shí)現(xiàn),用布爾型變量

flag作為該數(shù)就是否為素?cái)?shù)得標(biāo)志，注意:不得使用Got。語(yǔ)句。

PrivateFunctionfun(mAsLong)AsString

DimflagAsBoolean

'**********Program**********

'**********End**********

EndFunction

PrivateSubForm_Load()

Show

Printfun(225)

NJIT_VB

EndSub

PrivateSubNJIT_VB()

DimiAsInteger

Dima(10)AsString

DimfinAsInteger

DimfOutAsInteger

fin=FreeFile

OpenApp>Path&"\in、dat"ForInputAs#fln

fOut=FreeFile

OpenApp、Path&"\out>dat"ForOutputAs#fOut

Fori=1To10Step1

LineInput#fIn,a(i)

Print#fOut,fun(Val(a(i)))

Next

Close#fIn

Close#fOut

EndSub

Next

C1ose#fIn

C1ose#fOut

EndSub

19、題目：編寫(xiě)函數(shù)fun,函數(shù)得功能就是:求1?100以?xún)?nèi)能被m整除或能被n整除得數(shù)得總與并顯

示。如：

'm為15,n為11時(shí)，顯示“810"，'存儲(chǔ)總與得變量必須為Sum,'要求使用For語(yǔ)句來(lái)實(shí)現(xiàn)。

PrivateFunctionfun(mAsInteger,nAsInteger)AsLong

DimSumAsLong

'**********Program*****火***?

**********End**********

EndFunction

PrivateSubForm_Load()

Show

Printfun(15,11)

NJIT_VB

EndSub

PrivateSubNJIT_VB()

DimiAsInteger

Dima(10)AsString

DimfinAsInteger

DimfOutAsInteger

fIn=FreeFi1e

OpenApp、Path&"\in、dat"ForInputAs#fIn

fOut=FreeFile

OpenApp、Path&"\out、dat"ForOutputAs#fOut

Fori=1To10Step2

LineInput#fln,a(i)

LineInput#fln,a(i+1)

Print#fOut,Trim(Str(fun(Val(a(i)),Val(a(i+1)))))

Next

Close#fIn

Close#fOut

EndSub

20、題目：編寫(xiě)函數(shù)fun,函數(shù)得功能就是:計(jì)算并輸出給定整數(shù)n得所有因子之與(不包括1與自身).

規(guī)定n得值不大于1000?例如：n得值為855時(shí)，應(yīng)輸出704.

21、題目:：編寫(xiě)函數(shù)fun其功能就是：判斷一個(gè)整數(shù)w得各位數(shù)字平方之與能否被5整除，可以被

5整除則返回1,否則返回0

22、題目:編寫(xiě)函數(shù)fun其功能就是：根據(jù)整型形參m,計(jì)算如下公式得值：

'y=l/5+1/6+1/7+1/8+1/9+1/10、、、+l/(m+5)

求：函數(shù)中用到得中間變量必須聲明為Sing1e類(lèi)型.

11題

DimiAsInteger

dimsasinteger

Fori=500To1Step—1

s=i

Forj=i—1To1Step—1

IfiModj=0Then

s二s-j

EndIf

Nextj

Ifs=0Then

ExitFor

EndIf

Nexti

Printi

sum二i

12題

Dimi,j,imin,tempAsInteger

Fori=1Ton—1

imin=i

Forj=i+1Ton

Ifa(imin)>a(j)Thenimin=j

Nextj

temp=a(i)

a(i)=a(imin)

a(imin)=temp

Nexti

13題

DimiAsInteger

Fori=2To1000

IfiMod3=2AndiMod5=3AndiMod7=2Then

Printi

ExitFor

EndIf

Nexti

sum=i

14題IfUCase(n))="A"AndUCase(