vb題庫程序設(shè)計(jì)題講解

1、題目：（事件）單擊窗體'（響應(yīng)）用輸入框輸入一自然數(shù)，判斷是 ”正數(shù)”、”負(fù)數(shù)”或”零”，并根據(jù)輸入的數(shù)用消息框顯示”正數(shù)”、”負(fù)數(shù)”或"零"。n = InputBox（"輸入一個自然數(shù)"）If n > 0 Thenresult ="正數(shù)-Elself n < 0 Thenresult ="Elself n = 0 Thenresult ="End IfMsgBox "輸入的數(shù)據(jù)"& n & " 為："& result題目：編寫函數(shù)fun，函

2、數(shù)的功能是：判斷一個字符是"字母"'字母字符、數(shù)字字符還是其他字符，并做相應(yīng)的顯示。'字母字符顯示字符串'數(shù)字字符顯示字符串"數(shù)字"'其他字符顯示字符串"其他"'要求使用IF語句來實(shí)現(xiàn)。If UCase( n) >= "A" And UCase( n) <= "Z" Then fun = “ 字母“Elself n >= "0" And n <= "9" Thenfun = “ 數(shù)字"

3、;Elsefun = “ 其他"End If'題目：編寫函數(shù)fun，函數(shù)的功能是：根據(jù)一個百分制'成績mark （整數(shù)），顯示對應(yīng)五級制的評定。條件如下:'mark大于等于90顯示"優(yōu)秀- 'mark小于90且大于等于80顯示"良好" 'mark小于80且大于等于70顯示"中等" 'mark小于70且大于等于60顯示"及格"'mark小于60顯示"不及格" '要求使用IF語句來實(shí)現(xiàn)。P rivate Function fun(mar

4、k As Integer) As String '*Program* End *End FunctionIf mark >= 90 The nfun ="優(yōu)秀"ElseIf mark >= 80 The nfun = “ 良好"ElseIf mark >= 70 Thenfun = " 中等"ElseIf mark >= 60 Thenfun = " 及格"Elsefun = " 不及格"End If' 題目：編寫函數(shù) fun ，函數(shù)的功能是：判斷一個字符是 

5、9; 字母字符、數(shù)字字符還是其他字符，并做相應(yīng)的顯示。' 字母字符顯示字符串" 字母 "' 數(shù)字字符顯示字符串' 其他字符顯示字符串"數(shù)字""其他"' 要求使用 Select Case 語句來實(shí)現(xiàn)。Private Function fun(n As String) As String '*Program*'* End *End FunctionSelect Case nCase "a" To "z", "A" To "

6、Z"fun = " 字母 "Case "0" To "9"fun = "數(shù)字 "Case Elsefun = " 其他 "End Select ' 題目：編寫函數(shù) fun ,函數(shù)的功能是：當(dāng) x 的初值為 10,' 每年增長率為千分之八,計(jì)算多少年以后 x 的值能達(dá)到 y, ' 并顯示所需年數(shù)的值（變量名必須為 n）。' 要求使用 Do While . Loop 語句來實(shí)現(xiàn)。x = 10Do While x < yx = x * 1.008Loop

7、 fun = n'題目：編寫函數(shù) fun,函數(shù)的功能是：計(jì)算兩個正整數(shù)的' 最大公約數(shù)，并顯示。如：'兩個數(shù)為 15、20,結(jié)果顯示 "5"' 要求使用 Do . Loop 語句來實(shí)現(xiàn)。Dor = m Mod nIf r = 0 Then Exit DoLoopfun = n編寫函數(shù)fun，函數(shù)的功能是：求11000以內(nèi)能'同時被m、n整除的數(shù)的總和并顯示。Sum = 0For i = 1 To 1000If i Mod m = 0 And i Mod n = 0 ThenSum = Sum + iEnd IfNext i fun =

8、 Sum'題目：編寫函數(shù) fun,函數(shù)的功能是：求從m到n的乘積并顯示,Product = 1For i = m To nProduct = P roduct * iNext i fun = P roduct'題目：（事件）單擊窗體。'（響應(yīng)）一球從100米高度自由落下，每次落地返回'原高度的一半，求第 10次落地時，共經(jīng)過多'少米？并將結(jié)果在窗體上輸岀。Dim j, i As Integers = 0 j = 100For i = 2 To 10Next s = 100 + sPrint （CStr（s）題目：（事件）單擊窗體。'（響應(yīng)）求岀1

9、000-9999之間具有如下特點(diǎn)的四位數(shù)字，'它的平方根恰好就是它中間的兩位數(shù)字，例如，'2500開平方為50，恰為2500的中間兩位，找岀'所有這樣的四位數(shù)。并求岀所有這樣的數(shù)的和'存入SUM中Dim i As IntegerDim j As IntegerFor i = 1000 To 9999j = Val(Mid(Trim(Str(i), 2, 2)If j A 2 = i ThenPrint i,sum = sum + iEnd IfNext'題目：（事件）雙擊窗體。'（響應(yīng)）把一元鈔票換成一分、二分和五分的硬幣' （每種至少有

10、一枚），求出其所有的換法，'把結(jié)果輸出在窗體上。'將所有的換法的數(shù)目存入變量Dim i, j, k As IntegerFor i = 1 To 100For j = 1 To 50For k = 1 To 20If (i + 2 * j + k * 5) = 100) ThenPrint (CStr(i)Print (CStr(j)Print (CStr(k)n = n + 1End IfNextNextNext3元 1只，怎樣用 100 元買' 題目： （事件 ）雙擊窗體。'（響應(yīng) ） 寫程序解決百錢買百雞問題：公雞'母雞 5 元 1 只，小雞一元

11、3 只，'100 只雞。把結(jié)果輸出到窗體上。'將答案數(shù)存放在變量 N 中Dim i, j, k As IntegerFor i = 1 To 20 ' 母雞For j = 1 To 33 '公雞For k = 3 To 100 '小雞If (k Mod 3) = 0) And (i * 5 + j * 3 + k / 3) = 100) And (i + j + k) = 100) ThenPrint (CStr(i)Print (CStr(j)Print (CStr(k)End IfNextNextNext'題目： （事件 ）單擊窗體。'

12、;（響應(yīng) ） 求 1020 之間所有素?cái)?shù)的乘積并輸出在窗體上。'將結(jié)果存入變量 L 中。Dim i As IntegerDim j As IntegerDim b As Booleanb = FalseFor i = 10 To 20For j = 2 To i - 2If i Mod j = 0 Then b = TrueEnd IfNextIf b = False ThenEnd Ifb = FalseNextPrint Str(l)' 題目： （事件 ）單擊窗體。+ 1/99 - 1/100 的值。'（響應(yīng) ） 求 1 - 1/2 + 1/3 - 1/4 +

13、9; 將結(jié)果存入變量 J 中。 Dim i As IntegerFor i = 1 To 100If i Mod 2 = 1 Thenj = j + 1 / iElseIf i Mod 2 = 0 ThenEnd IfNextPrint j題目： （事件 ）雙擊窗體。'（響應(yīng)）求1+2+3+5+8+13+前20項(xiàng)的和，并將結(jié)'果在窗體上輸出。將結(jié)果存入變量 SUM 中。Dim i As IntegerDim j(1 To 20) As IntegerFor i = 1 To 20If i < 3 Thenj(i) = iElsej(i) = j(i - 1) + j(i - 2)End Ifsum = sum + j(i)NextPrint sum' 題目：有一根長度為 321 米的鋼材，要將它截取為兩種規(guī)格的 '短料，兩種規(guī)格的長度分別為a米、b米。每種至少一段。'編寫函數(shù) fun ，函數(shù)的功能是 :'求出分割成兩種規(guī)格后剩余殘料r 最少的值，并顯示。如：'a 為 51、