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

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

2、"& result題目編寫函數(shù)fun，函數(shù)的功能是：判斷一個字符是'字母字符、數(shù)字字符還是其他字符，并做相應(yīng)的顯示。'字母字符顯示字符串"字母"'數(shù)字字符顯示字符串"數(shù)字"'其他字符顯示字符串"其他"'要求使用IF語句來實現(xiàn)。If UCasen >= "A" And UCasen <= "Z" Thenfun =" 字母"ElseIf n >= "0" And n <= &q

3、uot;9" Thenfun =" 數(shù)字"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顯示"不與格"'

4、;要求使用IF語句來實現(xiàn)。Private Function fun(mark As Integer) As String*Program*End*End FunctionIf mark >= 90 The nfun ="優(yōu)秀"ElseIf mark >= 80 The nfun ="良好"Elself mark >= 70 Thenfun =" 中等"Elself mark >= 60 The nfun =" 與格"Elsefun = “ 不與格"End If'題目編寫函數(shù)

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

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

7、n，函數(shù)的功能是：計算兩個正整數(shù)的'最大公約數(shù)，并顯示。如：'兩個數(shù)為15、20,結(jié)果顯示"5"'要求使用Do . Loop語句來實現(xiàn)。Dor = m Mod nIf r = 0 Then Exit Don = rLoopfun = n編寫函數(shù)fun，函數(shù)的功能是：求 11000以能'同時被m n整除的數(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ù)的功能

8、是：求從m到n的乘積并顯示,Product = 1For i = m To nProduct = Product * iNext ifun = Product'題目：(事件)單擊窗體。'( 響應(yīng))一球從100米高度自由落下，每次落地返回'原高度的一半，求第 10次落地時，共經(jīng)過多'少米？并將結(jié)果在窗體上輸出。Dim j, i As Integers = 0j = 100For i = 2 To 10j = j / 2s = s + 2 * jNexts = 100 + sPrint (CStr(s)題目：(事件)單擊窗體。'( 響應(yīng))求出1000-999

9、9之間具有如下特點的四位數(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 + iEnd IfNext'題目：(事件)雙擊窗體。'( 響應(yīng))把一元鈔票換成一分、二分和五分的硬幣'(每種至少有一枚)，求出其

10、所有的換法，'把結(jié)果輸出在窗體上。'將所有的換法的數(shù)目存入變量N中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 IfNextNextNext'題目：(事件)雙擊窗體。'( 響應(yīng))寫程序解決百錢買百雞問題：公雞3元1只，'母雞5元1只，小雞一元3只，怎樣用100元買'100只雞。把結(jié)果

11、輸出到窗體上。'將答案數(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)n = n + 1End IfNextNextNext'題目：(事件)單擊窗體。'( 響應(yīng))求1020之間所

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

13、。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題目：(事件)雙擊窗體。'( 響應(yīng))求1+2+3+5+8+13+前20項的和，并將結(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為