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

程序設(shè)計題1、題目：(事件)單擊窗體(響應(yīng))用輸入框輸入一自然數(shù)，判斷是"正數(shù)"、"負數(shù)或"零"，并根據(jù)輸入的數(shù)用消息框顯示"正數(shù)"、"負數(shù)”或"零"。2、題目：(事件)單擊窗體。(響應(yīng))求200~300之間既能被3整除又能被7整除的數(shù)。并求出所有數(shù)之和存入變量SUM中3、題目：單擊窗體。(響應(yīng))已知S=1+1/4+1/9+1/16+1/25+…+1/100，結(jié)果輸出在窗體上。4、題目：(事件)單擊窗體。(響應(yīng))在窗體上打印數(shù)列2/1,3/2,5/3,8/5,13/8…的前10項，并求其和，將和保存在變量s中。5、題目：(事件)雙擊窗體。(響應(yīng))把一元鈔票換成一分、二分和五分的硬幣每種至少有一枚），求出其所有的換法，把結(jié)果輸出在窗體上。將所有的換法的數(shù)目存入變量N中6、題目：單擊窗體。)求1!+2!+3!+4!+5!并將結(jié)果輸出到窗體上。結(jié)果存入變量S中7、題目：(事件)單擊窗體。(響應(yīng))生成一個一維數(shù)組(10個數(shù)組元素依此為：'15、23、72、43、96、23、3、65、88、17寫程序求出這個數(shù)組中的最大值、最小值和平均值，并輸出在窗體上。將最大值，最小值，平均值分別存入變量Max,Min,Aver中8、題目：(事件)單擊窗體。(響應(yīng))在窗體上輸出100~200之間的所有合數(shù)。求出所有數(shù)之和存入SUM中所謂合數(shù)是指自然數(shù)中能被1和本數(shù)整除以外,還能被其他數(shù)整除的數(shù)。9、題目：(事件)單擊窗體。(響應(yīng))求10~20之間所有素數(shù)的乘積并輸出在窗體上。將結(jié)果存入變量L中。10、題目：(事件)單擊窗體。(響應(yīng))求1-1/2+1/3-1/4+……+1/99-1/100的值。將結(jié)果存入變量J中。1題n=InputBox("輸入一個自然數(shù)")Ifn>0Thenresult="正數(shù)"ElseIfn<0Thenresult="負數(shù)"ElseIfn=0Thenresult="零"EndIfMsgBox"輸入的數(shù)據(jù)"&n&"為："&result2題DimiAsIntegerFori=201To300If((iMod3)=0)And((iMod7)=0)ThenPrint(CStr(i))sum=sum+iEndIfNextPrintsum3題DimiAsIntegers=0Fori=1To10s=s+1/(i^i)NextPrint(s)4題Dimi,j,k,mAsIntegers=0:i=2:j=1Fork=1To10s=s+i/jm=jPrint(CStr(i))&"/"&CStr(j)j=ii=i+mNext5題Dimi,j,kAsIntegerFori=1To100Forj=1To50Fork=1To20If((i+2*j+k*5)=100)ThenPrint(CStr(i))Print(CStr(j))Print(CStr(k))n=n+1EndIfNextNextNext6題Dimi,j,kAsIntegerFori=1To5k=1Forj=1Toik=k*jNexts=s+kNextPrint(CStr(s))7題Dima(9)AsIntegerDimi,sAsIntegera(0)=15：a(1)=23：a(2)=72a(3)=43：a(4)=96：a(5)=23a(6)=3：a(7)=65：a(8)=88a(9)=17：max=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))8題Dimi,j,sAsIntegerFori=100To200Forj=2ToSqr(i)If(iModj)=0ThenPrint(CStr(i))sum=sum+iExitForEndIfNextNextPrintsum9題Dimi%，j%，bAsBooleanl=1：b=FalseFori=10To20Forj=2Toi-2IfiModj=0Thenb=TrueEndIfNextIfb=FalseThenl=l*iEndIfb=FalseNextPrintStr(l)10題DimiAsIntegerFori=1To100IfiMod2=1Thenj=j+1/iElseIfiMod2=0Thenj=j-1/iEndIfNextPrintj11、題目：(事件)單擊窗體。(響應(yīng))假如一個數(shù)的真因子之和等于這個數(shù)自身，則稱這樣的數(shù)為“完全數(shù)”。例如，整數(shù)28的真因子為1、2、4、7、11，其和是28。因此28是一個完全數(shù)。請編寫一個程序，求出500以內(nèi)最大的完全數(shù)。并存入變量SUM中。使用for...next語句完畢程序12、題目：應(yīng)用選擇法對數(shù)組A按升序排列13、題目：單擊窗體。求一個數(shù),它除3余2，除5余3，除7余2，請將滿足上面條件的最小數(shù)保存到sum變量中。使用for...next語句完畢程序。14、題目：編寫函數(shù)fun，函數(shù)的功能是：判斷一個字符是字母字符、數(shù)字字符還是其他字符，并做相應(yīng)的顯示。字母字符顯示字符串"字母"，數(shù)字字符顯示字符串"數(shù)字"，其他字符顯示字符串"其他"，規(guī)定使用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#fOutEndSub15、題目：編寫函數(shù)fun，函數(shù)的功能是：根據(jù)一個百分制成績mark（整數(shù)），顯示相應(yīng)五級制的評估。條件如下：'mark大于等于90顯示"優(yōu)秀"'mark小于90且大于等于80顯示"良好"'mark小于80且大于等于70顯示"中檔"'mark小于70且大于等于60顯示"及格"'mark小于60顯示"不及格"'規(guī)定使用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#fOutEndSub16、題目：編寫函數(shù)fun，函數(shù)的功能是：當x的初值為10，每年增長率為千分之八，計算多少年以后x的值能達成y，并顯示所需年數(shù)的值（變量名必須為n）。'規(guī)定使用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#fOutEndSub17、題目：編寫函數(shù)fun，函數(shù)的功能是：求從m到n的乘積并顯示，'如：m為2，n為4時，顯示"24"'存儲連乘的乘積的變量必須為Product'規(guī)定使用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#fOutEndSub18、題目：編寫函數(shù)fun，函數(shù)的功能是：判斷一個數(shù)是否為素數(shù)。并顯示相應(yīng)提醒。如：該數(shù)為素數(shù)時，顯示"素數(shù)"；該數(shù)為非素數(shù)時，顯示"非素數(shù)"'規(guī)定使用For語句來實現(xiàn)，用布爾型變量flag作為該數(shù)是否為素數(shù)的標志，注意：不得使用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#fOutEndSub19、題目：編寫函數(shù)fun，函數(shù)的功能是：求1~100以內(nèi)能被m整除或能被n整除的數(shù)的總和并顯示。如：'m為15，n為11時，顯示"810"，'存儲總和的變量必須為Sum，'規(guī)定使用For語句來實現(xiàn)。PrivateFunctionfun(mAsInteger,nAsInteger)AsLongDimSumAsLong'**********Program**********'**********End**********EndFunctionPrivateSubForm_Load()Show16題x=1016題x=10n=0DoWhilex<yx=x*1.008n=n+1Loopfun=n19題Sum=019題Sum=0Fori=1To100IfiModm=0OriModn=0ThenSum=Sum+iEndIfNextifun=SumEndSubPrivateSubNJIT_VB()DimiAsInteger15題Ifmark>=90Then15題Ifmark>=90Thenfun="優(yōu)秀"ElseIfmark>=80Thenfun="良好"ElseIfmark>=70Thenfun="中檔"ElseIfmark>=60Thenfun="及格"Elsefun="不及格"EndIf20題Dims,iAsInteger20題Dims,iAsIntegerFori=2Ton-1IfnModi=0Thens=s+iEndIfNextFun=sDimfOutAsIntegerfIn=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#fOutEndSub20、題目：編寫函數(shù)fun，函數(shù)的功能是：計算并輸出給定整數(shù)n的所有因子之和（不涉及1與自身）。規(guī)定n的值不大于1000?例如：n的值為855時，應(yīng)輸出704。21、題目：：編寫函數(shù)fun其功能是:判斷一個整數(shù)w的各位數(shù)字平方之和能否被5整除,可以被5整除則返回1,否則返回022、題目：編寫函數(shù)fun其功能是：根據(jù)整型形參m，計算如下公式的值:'y=1/5+1/6+1/7+1/8+1/9+1/10...+1/(m+5)求：函數(shù)中用到的中間變量必須聲明為Single類型。11題DimiAsIntegerdimsasintegerFori=500To1Step-1s=iForj=i-1To1Step-1IfiModj=0Thens=s-jEndIfNextjIfs=0ThenExitForEndIfNextiPrintisum=i12題Dimi,j,imin,tempAsIntegerFori=1Ton-1imin=iForj=i+1TonIfa(imin)>a(j)Thenimin=jNextjtemp=a(i)a(i)=a(imin)a(imin)=tempNexti13題DimiAsIntegerFori=2To1000IfiMod3=2AndiMod5=3AndiMod7=2ThenPrintiExitForEndIfNextisum=i14題IfUCase(n)>="A"AndUCase(n)<="Z"Thenfun="字母"ElseIfn>="0"Andn<="9"Thenfun=