vb題庫程序設計題講解

1、題目：（事 件 ）單 擊 窗體（ 響應）用輸入框輸入一自然數(shù)，判斷是 ”正數(shù)”、”負數(shù)” 或零，并根據(jù)輸入的數(shù)用消息框顯示”正數(shù)、”負數(shù)或零。n = lnputBox（輸入一個自然數(shù)）If n 0 Thenresult = 正數(shù)Elself n = A And UCase（n） = 0 And n = 90 The nfun = 優(yōu)秀ElseIf mark = 80 Then fun = 良好 ElseIf mark = 70 Then fun = 中等 ElseIf mark = 60 Then fun = 及格 Elsefun = 不及格 End If 題目：編寫函數(shù) fun ，函數(shù)的功能

2、是：判斷一個字符是 字母字符、數(shù)字字符還是其他字符，并做相應的顯示。 字母字符顯示字符串 字母 數(shù)字字符顯示字符串 數(shù)字 其他字符顯示字符串 其他 要求使用 Select Case 語句來實現(xiàn)。Private Function fun(n As String) As StringI*Program*I*End*End FunctionSelect Case nCase a To z, A To Zfun = 字母 Case 0 To 9fun = 數(shù)字 Case Elsefun = 其他 End Select 題目：編寫函數(shù) fun ，函數(shù)的功能是：當 x 的初值為 10， 每年增長率為千分之

3、八，計算多少年以后 x 的值能達到 y ， 并顯示所需年數(shù)的值（變量名必須為 n）。 要求使用 Do While . Loop 語句來實現(xiàn)。x = 10n = 0Do While x yx = x * 1.008n = n + 1Loop fun = n 題目：編寫函數(shù) fun ，函數(shù)的功能是：計算兩個正整數(shù)的 最大公約數(shù)，并顯示。如： 兩個數(shù)為 15、 20，結果顯示 5 要求使用 Do . Loop 語句來實現(xiàn)。 Dor = m Mod nIf r = 0 Then Exit Dom = nn = rLoopfun = n編寫函數(shù)fun，函數(shù)的功能是：求 11000 以內能 同時被m n整

4、除的數(shù)的總和并顯示。Sum = 0For i = 1 To 1000If i Mod m = 0 And i Mod n = 0 ThenSum = Sum + iEnd IfNext ifun = Sum題目：編寫函數(shù)fun，函數(shù)的功能是：求從m到n的乘積并顯示,Product = 1For i = m To nProduct = Product * iNext ifun = Product題目：(事件)單擊窗體。( 響應)一球從100米高度自由落下，每次落地返回原高度的一半，求第 10次落地時，共經(jīng)過多少米？并將結果在窗體上輸出。Dim j, i As Integers = 0j = 10

5、0For i = 2 To 10j = j / 2s = s + 2 * jNexts = 100 + sPrint (CStr(s)題目：(事件)單擊窗體。( 響應)求出1000-9999之間具有如下特點的四位數(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 人 2 = i ThenPrint i,sum = sum +

6、iEnd IfNext 題目： ( 事件 ) 雙擊窗體。 (響應 ) 把一元鈔票換成一分、二分和五分的硬幣 (每種至少有一枚) ，求出其所有的換法，把結果輸出在窗體上。將所有的換法的數(shù)目存入變量N 中Dim i, j, k As IntegerFor i = 1 To 100For j = 1 To 50For k = 1 To 20 If (i + 2 * j + k * 5) = 100) ThenPrint (CStr(i)Print (CStr(j)Print (CStr(k)n = n + 1End IfNextNextNext 題目： ( 事件 ) 雙擊窗體。 (響應)寫程序解決百

7、錢買百雞問題：公雞3元 1只， 母雞 5 元 1 只，小雞一元 3 只，怎樣用 100 元買 100 只雞。把結果輸出到窗體上。 將答案數(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) Then Print (CStr(i) Print (CStr(j) Print (CStr(k) n = n + 1End IfNext

8、NextNext 題目： ( 事件 ) 單擊窗體。 (響應 ) 求 1020 之間所有素數(shù)的乘積并輸出在窗體上。 將結果存入變量 L 中。Dim i As IntegerDim j As IntegerDim b As Booleanl = 1 b = FalseFor i = 10 To 20For j = 2 To i - 2If i Mod j = 0 Thenb = TrueEnd IfNextIf b = False Thenl = l * iEnd Ifb = FalseNextPrint Str(l)的值。 題目： ( 事件 ) 單擊窗體。( 響應)求 1-1/2 + 1/3 - 1/4 + 1/99 -1/100 將結果存入變量 J 中。Dim i As IntegerFor i = 1 To 100If i Mod 2 = 1 Thenj = j + 1 / iElseIf i Mod 2 = 0 Thenj = j - 1 / iEnd IfNextPrint j題目： ( 事件 ) 雙擊窗體。( 響應)求1+2+3+5+8+13+前20