vb程序設(shè)計考試題庫——考試專用

1、程序設(shè)計題程序設(shè)計題1、題目：(事件)單擊窗體(響應)用輸入框輸入一自然數(shù)，判斷是“正數(shù)“、“負數(shù)或“零“，并根據(jù)輸入的數(shù)用消息框顯示“正數(shù)“、“負數(shù)”或“零“。2、題目：(事件)單擊窗體。(響應)求200~300之間既能被3整除又能被7整除的數(shù)。并求出所有數(shù)之和存入變量SUM中3、題目：單擊窗體。(響應)已知S=11419116125…1100，結(jié)果輸出在窗體上。4、題目：(事件)單擊窗體。(響應)在窗體上打印數(shù)列2132538513

2、8…的前10項，并求其和，將和保存在變量s中。5、題目：(事件)雙擊窗體。(響應)把一元鈔票換成一分、二分和五分的硬幣每種至少有一枚），求出其所有的換法，把結(jié)果輸出在窗體上。將所有的換法的數(shù)目存入變量N中6、題目：單擊窗體。)求1!2!3!4!5!并將結(jié)果輸出到窗體上。結(jié)果存入變量S中7、題目：(事件)單擊窗體。(響應)生成一個一維數(shù)組(10個數(shù)組元素依此為：15、23、72、43、96、23、3、65、88、17寫程序求出這個數(shù)組中的

3、最大值、最小值和平均值，并輸出在窗體上。將最大值，最小值，平均值分別存入變量MaxMinAver中8、題目：(事件)單擊窗體。(響應)在窗體上輸出100~200之間的所有合數(shù)。求出所有數(shù)之和存入SUM中所謂合數(shù)是指自然數(shù)中能被1和本數(shù)整除以外還能被其他數(shù)整除的數(shù)。9、題目：(事件)單擊窗體。(響應)求10~20之間所有素數(shù)的乘積并輸出在窗體上。將結(jié)果存入變量L中。10、題目：(事件)單擊窗體。(響應)求1121314……1991100的

4、值。將結(jié)果存入變量J中。1題n=InputBox(“輸入一個自然數(shù)“)Ifn0Thenresult=“正數(shù)“ElseIfn0Thenresult=“負數(shù)“ElseIfn=0Thenresult=“零“EndIfMsgBox“輸入的數(shù)據(jù)“&n&“為：“&result2題DimiAsIntegerFi=201To300If((iMod3)=0)((iMod7)=0)ThenPrint(CStr(i))sum=sumiEndIfNextPri

5、ntsum3題DimiAsIntegers=0Fi=1To10s=s1(i^i)NextPrint(s)4題DimijkmAsIntegers=0:i=2:j=1Fk=1To10s=sijm=jPrint(CStr(i))&““&CStr(j)j=ii=imNext5題DimijkAsIntegerFi=1To100Fj=1To50Fk=1To20If((i2jk5)=100)ThenPrint(CStr(i))Print(CStr(j

6、))NextPrintj11、題目：(事件)單擊窗體。(響應)如果一個數(shù)的真因子之和等于這個數(shù)本身，則稱這樣的數(shù)為“完全數(shù)”。例如，整數(shù)28的真因子為1、2、4、7、11，其和是28。因此28是一個完全數(shù)。請編寫一個程序，求出500以內(nèi)最大的完全數(shù)。并存入變量SUM中。使用f...next語句完成程序12、題目：應用選擇法對數(shù)組A按升序排列13、題目：單擊窗體。求一個數(shù)它除3余2，除5余3，除7余2，請將滿足上面條件的最小數(shù)保存到sum

7、變量中。使用f...next語句完成程序。14、題目：編寫函數(shù)fun，函數(shù)的功能是：判斷一個字符是字母字符、數(shù)字字符還是其他字符，并做相應的顯示。字母字符顯示字符串“字母“，數(shù)字字符顯示字符串“數(shù)字“，其他字符顯示字符串“其他“，要求使用IF語句來實現(xiàn)。PrivateFunctionfun(nAsString)AsStringProgramEndEndFunctionPrivateSubFm_Load()ShowPrintfun(“A“

8、)Printfun(“9“)Printfun(“&“)NJIT_VBEndSubPrivateSubNJIT_VB()DimiAsIntegerDimlAsIntegerDima(10)AsString1DimfInAsIntegerDimfOutAsIntegerfIn=FreeFileOpenApp.Path&“in.dat“FInputAs#fInfOut=FreeFileOpenApp.Path&“out.dat“FOutput

9、As#fOutFi=1To10LineInput#fIna(i)Print#fOutfun(a(i))NextClose#fInClose#fOutEndSub15、題目：編寫函數(shù)fun，函數(shù)的功能是：根據(jù)一個百分制成績mark（整數(shù)），顯示對應五級制的評定。條件如下：mark大于等于90顯示“優(yōu)秀“mark小于90且大于等于80顯示“良好“mark小于80且大于等于70顯示“中等“mark小于70且大于等于60顯示“及格“mark小于