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

經(jīng)典word整理文檔，僅參考，雙擊此處可刪除頁(yè)眉頁(yè)腳。本資料屬于網(wǎng)絡(luò)整理，如有侵權(quán)，請(qǐng)聯(lián)系刪除，謝謝！程序設(shè)計(jì)題1、題目：(事件)單擊窗體()用輸入框輸入一自然數(shù)，判斷是"正數(shù)"、"負(fù)數(shù)或"零"，并根據(jù)輸入的數(shù)用消息框顯示"正數(shù)"、"負(fù)數(shù)”或"零"。2、題目：(事件)單擊窗體。()求200~300之間既能被3整除又能被7整除的數(shù)。并求出所有數(shù)之和存入變量SUM中3、題目：?jiǎn)螕舸绑w。(響應(yīng))已知S=1+1/4+1/9+1/16+1/25+…+1/100，結(jié)果輸出在窗體上。4、題目：(事件)單擊窗體。()在窗體上打印數(shù)列2/1,3/2,5/3,8/5,13/8…的前10項(xiàng)，并求其和，將和保存在變量s中。5、題目：(事件)雙擊窗體。()把一元鈔票換成一分、二分和五分的硬幣每種至少有一枚），求出其所有的換法，把結(jié)果輸出在窗體上。將所有的換法的數(shù)目存入變量N中6、題目：?jiǎn)螕舸绑w。)求1!+2!+3!+4!+5!并將結(jié)果輸出到窗體上。結(jié)果存入變量S中7、題目：(事件)單擊窗體。()生成一個(gè)一維數(shù)組(10個(gè)數(shù)組元素依此為：'15、23、72、43、96、23、3、65、88、17寫(xiě)程序求出這個(gè)數(shù)組中的最大值、最小值和平均值，并輸出在窗體上。將最大值，最小值，平均值分別存入變量Max,Min,Aver中8、題目：(事件)單擊窗體。()在窗體上輸出100~200之間的所有合數(shù)。求出所有數(shù)之和存入SUM中所謂合數(shù)是指自然數(shù)中能被1和本數(shù)整除以外,還能被其他數(shù)整除的數(shù)。9、題目：(事件)單擊窗體。()求10~20之間所有素?cái)?shù)的乘積并輸出在窗體上。將結(jié)果存入變量L中。10(事件)單擊窗體。()求1-1/2+1/3-1/4+……+1/99-1/100J中。1題n=InputBox("輸入一個(gè)自然數(shù)")Ifn>0Thenresult="正數(shù)"ElseIfn<0Thenresult="負(fù)數(shù)"ElseIfn=0Thenresult="零"EndIfMsgBox"輸入的數(shù)據(jù)"&n&&result2題DimiAsIntegerFori=201To300If((iMod3)=0)And((iMod7)=0)ThenNextPrintsum3題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=0aver=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+iExitForNextPrintsum9題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))如果一個(gè)數(shù)的真因子之和等于這個(gè)數(shù)本身，則稱(chēng)這樣的數(shù)為“完28的真因子為124711，其和是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)將滿足上面條件的最小數(shù)保存到sum變量中。使用for...next語(yǔ)句完成程序。14、題目：編寫(xiě)函數(shù)，函數(shù)的功能是：判斷一個(gè)字符是字母字符、數(shù)字字符還是其他字符，并做相"字母""數(shù)字""其他"，要求使用IF語(yǔ)句來(lái)實(shí)現(xiàn)。PrivateFunctionfun(nAsString)AsString'**********Program**********OpenApp.Path&"\in.dat"ForInputAs#fInClose#fIn15、題目：編寫(xiě)函數(shù)，函數(shù)的功能是：根據(jù)一個(gè)百分制成績(jī)mark（整數(shù)），顯示對(duì)應(yīng)五級(jí)制的評(píng)定。條件如下：'mark小于90且大于等于80"良好"'mark小于80且大于等于70"中等"'mark小于70且大于等于60"及格"'mark小于60顯示"不及格"'要求使用IF語(yǔ)句來(lái)實(shí)現(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)Close#fIn16、題目：編寫(xiě)函數(shù)，函數(shù)的功能是：當(dāng)x的初值為10，每年增長(zhǎng)率為千分之八，計(jì)算多少年以后x的值能達(dá)到y(tǒng)，并顯示所需年數(shù)的值（變量名必須為）。'要求使用DoWhile...Loop語(yǔ)句來(lái)實(shí)現(xiàn)。PrivateFunctionfun(yAsSingle)AsLong'**********Program**********'**********End**********OpenApp.Path&"\in.dat"ForInputAs#fInPrint#fOut,Trim(Str(fun(Val(a(i)))))NextClose#fInClose#fOutEndSub17、題目：編寫(xiě)函數(shù)，函數(shù)的功能是：求從m到n的乘積并顯示，'如：m為2，n為4時(shí)，顯示"24"'存儲(chǔ)連乘的乘積的變量必須為Product'要求使用For語(yǔ)句來(lái)實(shí)現(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#fOutClose#fIn18、題目：編寫(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)志，注意：不得使用Goto語(yǔ)句。PrivateFunctionfun(mAsLong)AsString'**********Program**********PrivateSubForm_Load()ShowOpenApp.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、題目：編寫(xiě)函數(shù)，函數(shù)的功能是：求1~100以?xún)?nèi)能被m整除或能被n整除的數(shù)的總和并顯示。如：'m為15，n為11時(shí)，顯示，'存儲(chǔ)總和的變量必須為，'要求使用For語(yǔ)句來(lái)實(shí)現(xiàn)。PrivateFunctionfun(mAsInteger,nAsInteger)AsLongDimSumAsLong'**********Program**********'**********End**********EndFunctionPrivateSubForm_Load()ShowPrintfun(15,11)NJIT_VBOpenApp.Path&"\in.dat"ForInputAs#fInClose#fIn20funn1規(guī)定n的值不大于1000?n的值為855時(shí)，應(yīng)輸出704。21、題目：：編寫(xiě)函數(shù)fun其功能是:判斷一個(gè)整數(shù)w的各位數(shù)字平方之和能否被5整除,可以被5整除則返回1,否則返回022、題目：編寫(xiě)函數(shù)fun其功能是：根據(jù)整型形參m，計(jì)算如下公式的值:y=1/5+1/6+1/7+1/8+1/9+1/10...+1/(m+5)求：函數(shù)中用到的中間變量必須聲明為Single類(lèi)型。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=2ThenPrintiExitForE