VB程序設(shè)計考試題庫-考試專用

程序設(shè)計題、題目：(事件單擊窗體(響應(yīng))用輸入框輸入一自然數(shù)，判斷是"正數(shù)"、"負(fù)數(shù)或"零"，并根據(jù)輸入的

數(shù)用消息框顯示"正數(shù)"、"負(fù)數(shù)"零"。、題目：(事件單擊窗體。響應(yīng))求200~300之間既能被3整除又能被7整除的數(shù)。并求出所有數(shù)之和存入變量SUM中、題目：單擊窗體。響應(yīng)已知S=1+1/4+1/9+1/16+1/25+,+1/100，結(jié)果輸出在窗體上。、題目：(事件單擊窗體。響應(yīng))在窗體上打印數(shù)列2/1,3/2,5/3,8/5,13/8,的前10項，并求其和，將和保存在變量s中。、題目：(事件雙擊窗體。響應(yīng))把一元鈔票換成一分、二分和五分的硬幣每種至少有一枚），求出其所有的換法，把結(jié)果輸出在窗體上。將所有的換法的數(shù)目存入變量N中、題目：單擊窗體。求1!+2!+3!+4!+5!并將結(jié)果輸出到窗體上。結(jié)果存入變量S中、題目：(事件單擊窗體。響應(yīng))生成一個一維數(shù)組(10個數(shù)組元素依此為：'15、23、72、43、96、、、65、88、17寫程序求出這個數(shù)組中的最大值、最小值和平均值，并輸出在窗體上。將最大值，最小值，平均值分別存入變量Max,Min,Aver中、題目：(事件單擊窗體。響應(yīng))在窗體上輸出100~200之間的所有合數(shù)。求出所有數(shù)之和存入SUM中所謂合數(shù)是指自然數(shù)中能被1和本數(shù)整除以外,還能被其他數(shù)整除的數(shù)。、題目：(事件單擊窗體。響應(yīng))求10~20之間所有素數(shù)的乘積并輸出在窗體上。將結(jié)果存入變量L中。、題目：事件)單擊窗體。(響應(yīng))求1-1/2+1/3-1/4+,,+1/99-1/100的值。將結(jié)果存入變量中。

題n=InputBox("輸入一個自然數(shù)")Ifn>0Thenresult="正數(shù)"ElseIfn<0Thenresult="負(fù)數(shù)"ElseIfn=0Thenresult="零"EndIfMsgBox"輸入的數(shù)據(jù)"&n&"為："&result題DimiAsIntegerFori=201To300If((iMod3)=0)And((iMod7)=0)ThenPrint(CStr(i))

sum=sum+i

EndIfNextPrintsum題DimiAsInteger

s=0Fori=1To10

s=s+1/(i^i)

NextPrint(s)題Dimi,j,k,mAsInteger

s=0:i=2:j=1

Fork=1To10

s=s+i/jm=jPrint(CStr(i))&"/"&CStr(j)

j=ii=i+mNext題Dimi,j,kAsInteger

Fori=1To100Forj=1To50Fork=1To20If((i+2*j+k*5)=100)Then

Print(CStr(i))Print(CStr(j))Print(CStr(k))n=n+1EndIfNextNextNext題Dimi,j,kAsIntegerFori=1To5k=1Forj=1Toik=k*jNexts=s+kNextPrint(CStr(s))題Dima(9)AsIntegerDimi,sAsIntegera(0)=15：a(1)=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=0Fori=0To9Ifa(i)>maxThen

max=a(i)EndIfIfa(i)<minThen

min=a(i)EndIfs=s+a(i)Nextaver=Int(s/10)

Print(CStr(max))

Print(CStr(min))Print(CStr(aver))題Dimi,j,sAsInteger

Fori=100To200

Forj=2ToSqr(i)If(iModj)=0Then

Print(CStr(i))sum=sum+i

ExitForEndIfNextNextPrintsum題Dimi%，，bAsBoolean

l=1：b=False

Fori=10To20

Forj=2Toi-2

IfiModj=0Then

b=TrueEndIfNextIfb=FalseThen

l=l*iEndIfb=FalseNextPrintStr(l)10題DimiAsIntegerFori=1To100

IfiMod2=1Then

j=j+1/iElseIfiMod2=0Then

j=j-1/iEndIfNextPrintj、題目：事件單擊窗體。響應(yīng))如果一個數(shù)的真因子之和等于這個數(shù)本身，則稱這樣的數(shù)為“完全數(shù)”。例如，整數(shù)28的真因子為、、4、、11，其和是28。因此28是一個完全數(shù)。請編寫一個程序，求出500以內(nèi)最大的完全數(shù)。并存入變量SUM中。使用for...next語句完成程序、題目：應(yīng)用選擇法對數(shù)組A按升序排列、題目：單擊窗體。求一個數(shù)它除3余2，除5余，除7余，請將滿足上面條件的最小數(shù)保存到sum變量中。使用for...next語句完成程序。、題目：編寫函數(shù)fun，函數(shù)的功能是：判斷一個字符是字母字符、數(shù)字字符還是其他字符，并做相應(yīng)的顯示。字母字符顯示字符串"字母"，數(shù)字字符顯示字符串"數(shù)字"，其他字符顯示字符串"其他"，要求使用IF語句來實現(xiàn)。PrivateFunctionfun(nAsString)AsString'**********Program**********'**********End**********EndFunctionPrivateSubForm_Load()ShowPrintfun("A")Printfun("9")Printfun("&")NJIT_VBEndSubPrivateSubNJIT_VB()DimiAsIntegerDimlAsIntegerDima(10)AsString*1DimfInAsIntegerDimfOutAsIntegerfIn=FreeFileOpenApp.Path&"\in.dat"ForInputAs#fInfOut=FreeFileOpenApp.Path&"\out.dat"ForOutputAs#fOutFori=1To10LineInput#fIn,a(i)Print#fOut,fun(a(i))NextClose#fInClose#fOutEndSub、題目：編寫函數(shù)fun，函數(shù)的功能是：根據(jù)一個百分制成績mark（整數(shù)），顯示對應(yīng)五級制的評定。條件如下：'mark大于等于90顯示"優(yōu)秀"'mark小于90且大于等于80顯示"良好"'mark小于80且大于等于70顯示"中等"'mark小于70且大于等于60顯示"及格"'mark小于60顯示"不及格"'要求使用IF語句來實現(xiàn)。PrivateFunctionfun(markAsInteger)AsString'**********Program**********'**********End**********EndFunctionPrivateSubForm_Load()ShowPrintfun(90)NJIT_VBEndSubPrivateSubNJIT_VB()DimiAsIntegerDimsAsStringDima(10)AsIntegerDimfInAsIntegerDimfOutAsIntegerfIn=FreeFileOpenApp.Path&"\in.dat"ForInputAs#fInfOut=FreeFileOpenApp.Path&"\out.dat"ForOutputAs#fOutFori=1To10LineInput#fIn,sa(i)=Val(s)Print#fOut,fun(a(i))NextClose#fInClose#fOutEndSub、題目：編寫函數(shù)fun，函數(shù)的功能是：當(dāng)x的初值為，每年增長率為千分之八，計算多少年以

后x的值能達(dá)到y(tǒng)，并顯示所需年數(shù)的值（變量名必須為）。'要求使用DoWhile...Loop語句來實現(xiàn)。PrivateFunctionfun(yAsSingle)AsLongDimxAsSingle,nAsLong'**********Program**********'**********End**********EndFunctionPrivateSubForm_Load()ShowPrintfun(15)NJIT_VBEndSubPrivateSubNJIT_VB()DimiAsIntegerDima(10)AsStringDimfInAsIntegerDimfOutAsIntegerfIn=FreeFileOpenApp.Path&"\in.dat"ForInputAs#fInfOut=FreeFileOpenApp.Path&"\out.dat"ForOutputAs#fOutFori=1To10LineInput#fIn,a(i)Print#fOut,Trim(Str(fun(Val(a(i)))))NextClose#fInClose#fOutEndSub、題目：編寫函數(shù)fun，函數(shù)的功能是：求從m到n的乘積并顯示，'如：m為，n為4時，顯示"24"'存儲連乘的乘積的變量必須為Product'要求使用For語句來實現(xiàn)。PrivateFunctionfun(mAsInteger,nAsInteger)AsLongDimProductAsDouble,tAsIntegerIfm>nThent=m:m=n:n=t'**********Program**********'**********End**********EndFunctionPrivateSubForm_Load()ShowPrintfun(4,2)NJIT_VBEndSubPrivateSubNJIT_VB()DimiAsIntegerDima(10)AsStringDimfInAsIntegerDimfOutAsIntegerfIn=FreeFileOpenApp.Path&"\in.dat"ForInputAs#fInfOut=FreeFileOpenApp.Path&"\out.dat"ForOutputAs#fOutFori=1To10Step2LineInput#fIn,a(i)LineInput#fIn,a(i+1)Print#fOut,Trim(Str(fun(Val(a(i)),Val(a(i+1)))))NextClose#fInClose#fOutEndSub、題目：編寫函數(shù)fun，函數(shù)的功能是：判斷一個數(shù)是否為素數(shù)。并顯示相應(yīng)提示。如：該數(shù)為素數(shù)時，顯示"素數(shù)；該數(shù)為非素數(shù)時，顯示非素數(shù)"'要求使用For語句來實現(xiàn)，用布爾型變量flag作為該數(shù)是否為素數(shù)的標(biāo)志，注意：不得使用Goto語句。PrivateFunctionfun(mAsLong)AsStringDimflagAsBoolean'**********Program**********'**********End**********EndFunctionPrivateSubForm_Load()ShowPrintfun(225)NJIT_VBEndSubPrivateSubNJIT_VB()DimiAsIntegerDima(10)AsStringDimfInAsIntegerDimfOutAsIntegerfIn=FreeFileOpenApp.Path&"\in.dat"ForInputAs#fInfOut=FreeFileOpenApp.Path&"\out.dat"ForOutputAs#fOutFori=1To10Step1LineInput#fIn,a(i)Print#fOut,fun(Val(a(i)))NextClose#fInClose#fOutEndSubNextClose#fInClose#fOutEndSub、題目：編寫函數(shù)fun，函數(shù)的功能是：求1~100以內(nèi)能被m整除或能被n整除的數(shù)的總和并顯示。如：'m為，n為11時，顯示"810"，'存儲總和的變量必須為，'要求使用For語句來實現(xiàn)。PrivateFunctionfun(mAsInteger,nAsInteger)AsLongDimSumAsLong'**********Program**********'**********End**********EndFunctionPrivateSubForm_Load()ShowPrintfun(15,11)NJIT_VBEndSubPrivateSubNJIT_VB()DimiAsIntegerDima(10)AsStringDimfInAsIntegerDimfOutAsIntegerfIn=FreeFileOpenApp.Path&"\in.dat"ForInputAs#fInfOut=FreeFileOpenApp.Path&"\out.dat"ForOutputAs#fOutFori=1To10Step2LineInput#fIn,a(i)LineInput#fIn,a(i+1)Print#fOut,Trim(Str(fun(Val(a(i)),Val(a(i+1)))))NextClose#fInClose#fOutEndSub編寫函數(shù)fun，函數(shù)的功能是：計算并輸出給定整數(shù)n的所有因子之和（不包括1與自身）。

規(guī)定n的值不大于1000?例如：n的值為855時，應(yīng)輸出704。、題目：：編寫函數(shù)fun其功能是判斷一個整數(shù)w的各位數(shù)字平方之和能否被5整除,可以被5

整除則返回1,否則返回0、題目：編寫函數(shù)fun其功能是：根據(jù)整型形參m，計算如下公式的值:'y=1/5+1/6+1/7+1/8+1/9+1/10...+1/(m+5)求：函數(shù)中用到的中間變量必須聲明為Single類型。11題DimiAsIntegerdimsasinteger

Fori=500To1Step-1

s=iForj=i-1To1Step-1

IfiModj=0Then

s=s-jEndIfNextjIfs=0Then

ExitForEndIfNextiPrintisum=i題Dimi,j,imin,tempAsInteger

Fori=1Ton-1

imin=iForj=i+1Ton

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

Nextjtemp=a(i)a(i)=a(imin)a(imin)=tempNexti題DimiAsIntegerFori=2To1000IfiMod3=2AndiMod5=3A