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

1、. .PAGE8 / NUMPAGES8程序設(shè)計題1、題目：(事件)單擊窗體(響應(yīng))用輸入框輸入一自然數(shù)，判斷是正數(shù)、負數(shù)或零，并根據(jù)輸入的數(shù)用消息框顯示正數(shù)、負數(shù)”或零。2、題目：(事件)單擊窗體。(響應(yīng))求200300之間既能被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))把一元鈔票換成一分、二分和五分的硬幣

2、每種至少有一枚），求出其所有的換法，把結(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))在窗體上輸出100200之間的所有合數(shù)。求出所有數(shù)之和存入SUM中所謂合數(shù)是指自然數(shù)中能被1和本數(shù)整除以外,還能被其他數(shù)整除的數(shù)。

3、9、題目：(事件)單擊窗體。(響應(yīng))求1020之間所有素數(shù)的乘積并輸出在窗體上。將結(jié)果存入變量L中。10、題目：(事件)單擊窗體。(響應(yīng))求1 - 1/2 + 1/3 - 1/4 + + 1/99 - 1/100的值。將結(jié)果存入變量J中。1題n = InputBox(輸入一個自然數(shù))If n 0 Then result = 正數(shù)ElseIf n max Then max = a(i) End If If a(i) n Then t = m: m = n: n = t*Program* End *End FunctionPrivate Sub Form_Load() Show Print fun

4、(4, 2) 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 Output As #fOut For i = 1 To 10 Step 2 Line Input #fIn, a(i) Line Input #fIn, a(i

5、 + 1) Print #fOut, Trim(Str(fun(Val(a(i), Val(a(i + 1) Next Close #fIn Close #fOutEnd Sub18、題目：編寫函數(shù)fun，函數(shù)的功能是：判斷一個數(shù)是否為素數(shù)。并顯示相應(yīng)提示。如：該數(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 FunctionPrivate

6、 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 Output As #fOut For i = 1 To 10 Step 1 Line Input #

7、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 Integer, n As Integer) As LongDim Sum As Long*Program* End *End FunctionPriv

8、ate Sub Form_Load() Show16題x = 10n = 0Do While x = 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 Integer For i = 2 To n - 1 If n Mod i = 0 Then s = s + i End If Next Fun = s Dim fIn As

9、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(Str(fun(Val(a(i), Val(a(i + 1) Next Close #fIn Close #fOutEnd Sub20

10、、題目：編寫函數(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題Dim i As Integerdim s as integerFor i = 500 To 1 Step -1 s =

11、 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 = 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

12、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) = 0 And n =90 then Fun=優(yōu)秀Elself mark =80 thenFun=良好Elseif mark=70 then Fun=中等Elseif mark=60 thenFun=與格Else Fun=不與格16題x = 10n = 0Do While x y x = x * 1.0

13、08 n = n + 1Loopfun = n17題Product = 1For i = m To n Product = Product * iNext ifun = Product18題 flag = TrueFor i = 2 To m - 1 If m Mod i = 0 Then flag = FalseNext iIf flag Then fun = 素數(shù)Else19 題Sum = 0For i = 1 To 100 If i Mod m = 0 Or i Mod n = 0 Then Sum = Sum + i End IfNext i20題Dim s, i As Integer For i = 2 To n - 1 If n Mod i = 0 Then s = s + i End If Next21題Dim k As Integer, s A