VB程序設計考試題庫——考試專用(共8頁)

1、精選優(yōu)質文檔-傾情為你奉上程序設計題1、題目：(事件)單擊窗體(響應)用輸入框輸入一自然數(shù)，判斷是"正數(shù)"、"負數(shù)或"零"，并根據(jù)輸入的數(shù)用消息框顯示"正數(shù)"、"負數(shù)”或"零"。2、題目：(事件)單擊窗體。(響應)求200300之間既能被3整除又能被7整除的數(shù)。并求出所有數(shù)之和存入變量SUM中3、題目：單擊窗體。(響應)已知S=1+1/4+1/9+1/16+1/25+1/100，結果輸出在窗體上。4、題目：(事件)單擊窗體。(響應)在窗體上打印數(shù)列2/1,3/2,5/3,8/5,13/8的前10

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

3、00200之間的所有合數(shù)。求出所有數(shù)之和存入SUM中所謂合數(shù)是指自然數(shù)中能被1和本數(shù)整除以外,還能被其他數(shù)整除的數(shù)。9、題目：(事件)單擊窗體。(響應)求1020之間所有素數(shù)的乘積并輸出在窗體上。將結果存入變量L中。10、題目：(事件)單擊窗體。(響應)求1 - 1/2 + 1/3 - 1/4 + + 1/99 - 1/100的值。將結果存入變量J中。1題n = InputBox("輸入一個自然數(shù)")If n > 0 Then result = "正數(shù)"ElseIf n < 0 Then result = "負數(shù)"Else

4、If n = 0 Then result = "零"End IfMsgBox "輸入的數(shù)據(jù)" & n & "為：" & result2題Dim i As IntegerFor i = 201 To 300 If (i Mod 3) = 0) And (i Mod 7) = 0) Then Print (CStr(i) sum = sum + i End IfNextPrint sum3題Dim i As Integers = 0For i = 1 To 10 s = s + 1 / (i i)NextPrint

5、 (s)4題Dim i, j, k, m As Integers = 0 :i = 2:j = 1For k = 1 To 10 s = s + i / j m = j Print (CStr(i) & "/" & CStr(j) j = i i = i + mNext5題Dim i, j, k As IntegerFor i = 1 To 100 For j = 1 To 50 For k = 1 To 20 If (i + 2 * j + k * 5) = 100) Then Print (CStr(i) Print (CStr(j) Print (CS

6、tr(k) n = n + 1 End If Next NextNext6題 Dim i, j, k As IntegerFor i = 1 To 5 k = 1 For j = 1 To i k = k * j Next s = s + kNextPrint (CStr(s)7題Dim a(9) As IntegerDim i, s As Integera(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 =

7、0For i = 0 To 9 If a(i) > max Then max = a(i) End If If a(i) < min Then min = a(i) End Ifs = s + a(i)Nextaver = Int(s / 10)Print (CStr(max)Print (CStr(min)Print (CStr(aver)8題 Dim i, j, s As IntegerFor i = 100 To 200 For j = 2 To Sqr(i) If (i Mod j) = 0 Then Print (CStr(i) sum = sum + i Exit Fo

8、r End If NextNextPrint sum9題Dim i%，j%，b As Booleanl = 1：b = FalseFor i = 10 To 20 For j = 2 To i - 2 If i Mod j = 0 Then b = True End If Next If b = False Then l = l * i End If b = FalseNextPrint Str(l)10題Dim i As Integer For i = 1 To 100 If i Mod 2 = 1 Then j = j + 1 / i ElseIf i Mod 2 = 0 Then j =

9、 j - 1 / i End If Next Print j11、題目： (事件)單擊窗體。(響應)如果一個數(shù)的真因子之和等于這個數(shù)本身，則稱這樣的數(shù)為“完全數(shù)”。例如，整數(shù)28的真因子為1、2、4、7、11，其和是28。因此28是一個完全數(shù)。請編寫一個程序，求出500以內最大的完全數(shù)。并存入變量SUM中。使用for.next語句完成程序 12、題目：應用選擇法對數(shù)組A按升序排列13、題目：單擊窗體。求一個數(shù),它除3余2，除5余3，除7余2，請將滿足上面條件的最小數(shù)保存到sum變量中。使用for.next語句完成程序。14、題目：編寫函數(shù)fun，函數(shù)的功能是：判斷一個字符是字母字符、數(shù)字字符還

10、是其他字符，并做相應的顯示。字母字符顯示字符串"字母"，數(shù)字字符顯示字符串"數(shù)字"，其他字符顯示字符串"其他"，要求使用IF語句來實現(xiàn)。Private Function fun(n As String) As String'*Program*'* End *End FunctionPrivate Sub Form_Load() Show Print fun("A") Print fun("9") Print fun("&") NJIT_VBEnd Su

11、bPrivate Sub NJIT_VB() Dim i As Integer Dim l As Integer Dim a(10) As String * 1 Dim fIn As Integer Dim fOut As Integer fIn = FreeFile Open App.Path & "in.dat" For Input As #fIn fOut = FreeFile Open App.Path & "out.dat" For Output As #fOut For i = 1 To 10 Line Input #fIn,

12、 a(i) Print #fOut, fun(a(i) Next Close #fIn Close #fOutEnd Sub15、題目：編寫函數(shù)fun，函數(shù)的功能是：根據(jù)一個百分制成績mark（整數(shù)），顯示對應五級制的評定。條件如下：'mark大于等于90顯示"優(yōu)秀"'mark小于90且大于等于80顯示"良好"'mark小于80且大于等于70顯示"中等"'mark小于70且大于等于60顯示"及格"'mark小于60顯示"不及格"'要求使用IF語句來

13、實現(xiàn)。Private Function fun(mark As Integer) As String'*Program*'* End *End FunctionPrivate Sub Form_Load() Show Print fun(90) NJIT_VBEnd SubPrivate Sub NJIT_VB() Dim i As Integer Dim s As String Dim a(10) As Integer Dim fIn As Integer Dim fOut As Integer fIn = FreeFile Open App.Path & "

14、;in.dat" For Input As #fIn fOut = FreeFile Open App.Path & "out.dat" For Output As #fOut For i = 1 To 10 Line Input #fIn, s a(i) = Val(s) Print #fOut, fun(a(i) Next Close #fIn Close #fOutEnd Sub16、題目：編寫函數(shù)fun，函數(shù)的功能是：當x的初值為10，每年增長率為千分之八，計算多少年以后x的值能達到y(tǒng)，并顯示所需年數(shù)的值（變量名必須為n）。'要求使用Do

15、While . Loop語句來實現(xiàn)。Private Function fun(y As Single) As LongDim x As Single, n As Long'*Program*'* End *End FunctionPrivate Sub Form_Load() Show Print fun(15) NJIT_VBEnd SubPrivate Sub NJIT_VB() Dim i As Integer Dim a(10) As String Dim fIn As Integer Dim fOut As Integer fIn = FreeFile Open Ap

16、p.Path & "in.dat" For Input As #fIn fOut = FreeFile Open App.Path & "out.dat" For Output As #fOut For i = 1 To 10 Line Input #fIn, a(i) Print #fOut, Trim(Str(fun(Val(a(i) Next Close #fIn Close #fOutEnd Sub17、題目：編寫函數(shù)fun，函數(shù)的功能是：求從m到n的乘積并顯示，'如：m為2，n為4時，顯示"24"&#

17、39;存儲連乘的乘積的變量必須為Product'要求使用For語句來實現(xiàn)。Private Function fun(m As Integer, n As Integer) As LongDim Product As Double, t As IntegerIf m > n Then t = m: m = n: n = t'*Program*'* End *End FunctionPrivate Sub Form_Load() Show Print fun(4, 2) NJIT_VBEnd SubPrivate Sub NJIT_VB() Dim i As Inte

18、ger Dim a(10) As String Dim fIn As Integer Dim fOut As Integer fIn = FreeFile Open App.Path & "in.dat" For Input As #fIn fOut = FreeFile Open App.Path & "out.dat" For Output As #fOut For i = 1 To 10 Step 2 Line Input #fIn, a(i) Line Input #fIn, a(i + 1) Print #fOut, Trim(

19、Str(fun(Val(a(i), Val(a(i + 1) Next Close #fIn Close #fOutEnd Sub18、題目：編寫函數(shù)fun，函數(shù)的功能是：判斷一個數(shù)是否為素數(shù)。并顯示相應提示。如：該數(shù)為素數(shù)時，顯示"素數(shù)"；該數(shù)為非素數(shù)時，顯示"非素數(shù)"'要求使用For語句來實現(xiàn)，用布爾型變量flag作為該數(shù)是否為素數(shù)的標志，注意：不得使用Goto語句。Private Function fun(m As Long) As StringDim flag As Boolean'*Program*'* End *End

20、 FunctionPrivate Sub Form_Load() Show Print fun(225) NJIT_VBEnd SubPrivate Sub NJIT_VB() Dim i As Integer Dim a(10) As String Dim fIn As Integer Dim fOut As Integer fIn = FreeFile Open App.Path & "in.dat" For Input As #fIn fOut = FreeFile Open App.Path & "out.dat" For Out

21、put As #fOut For i = 1 To 10 Step 1 Line Input #fIn, a(i) Print #fOut, fun(Val(a(i) Next Close #fIn Close #fOutEnd Sub Next Close #fIn Close #fOutEnd Sub19、題目：編寫函數(shù)fun，函數(shù)的功能是：求1100以內能被m整除或能被n整除的數(shù)的總和并顯示。如：'m為15，n為11時，顯示"810"，'存儲總和的變量必須為Sum，'要求使用For語句來實現(xiàn)。Private Function fun(m As

22、Integer, n As Integer) As LongDim Sum As Long'*Program*'* End *End FunctionPrivate Sub Form_Load() Show16題x = 10n = 0Do While x < y x = x * 1.008 n = n + 1Loopfun = n Print fun(15, 11)19 題Sum = 0For i = 1 To 100 If i Mod m = 0 Or i Mod n = 0 Then Sum = Sum + i End IfNext ifun = Sum NJIT_V

23、BEnd SubPrivate Sub NJIT_VB() Dim i As Integer15題If mark >= 90 Then fun = "優(yōu)秀"ElseIf mark >= 80 Then fun = "良好"ElseIf mark >= 70 Then fun = "中等"ElseIf mark >= 60 Then fun = "及格"Else fun = "不及格"End If Dim a(10) As String20題Dim s, i As Inte

24、ger For i = 2 To n - 1 If n Mod i = 0 Then s = s + i End If Next Fun = s Dim fIn As Integer Dim fOut As Integer fIn = FreeFile Open App.Path & "in.dat" For Input As #fIn fOut = FreeFile Open App.Path & "out.dat" For Output As #fOut For i = 1 To 10 Step 2 Line Input #fIn,

25、a(i) Line Input #fIn, a(i + 1) Print #fOut, Trim(Str(fun(Val(a(i), Val(a(i + 1) Next Close #fIn Close #fOutEnd Sub20、題目：編寫函數(shù)fun，函數(shù)的功能是：計算并輸出給定整數(shù)n的所有因子之和（不包括1與自身）。規(guī)定n的值不大于1000? 例如：n的值為855時，應輸出704。21、題目：編寫函數(shù)fun其功能是:判斷一個整數(shù)w的各位數(shù)字平方之和能否被5整除 , 可以被5整除則返回1 , 否則返回022、題目：編寫函數(shù)fun其功能是：根據(jù)整型形參m，計算如下公式的值:' y=1

26、/5+1/6+1/7+1/8+1/9+1/10.+1/(m+5)求：函數(shù)中用到的中間變量必須聲明為Single類型。11題Dim i As Integerdim s as integerFor i = 500 To 1 Step -1 s = i For j = i - 1 To 1 Step -1 If i Mod j = 0 Then s = s - j End If Next j If s = 0 Then Exit For End IfNext iPrint isum=i12題Dim i, j, imin, temp As Integer For i = 1 To n - 1 imin

27、 = i For j = i + 1 To n If a(imin) > a(j) Then imin = j Next j temp = a(i) a(i) = a(imin) a(imin) = temp Next i13題Dim i As Integer For i = 2 To 1000 If i Mod 3 = 2 And i Mod 5 = 3 And i Mod 7 = 2 Then Print i Exit For End IfNext i sum = i14 題If UCase(n) >= "A" And UCase(n) <= "Z" Then fun = "字母"ElseIf n