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 = A And UCase（n） = 0 And n = 90 Thenfun = 優(yōu)秀ElseIf mark = 80 Thenfun =良好Elself mark = 70 Then fun = 中等Elself mark = 60 Then fun = 及格Elsefun =不及格End If題目：編寫函數(shù)fun ,函數(shù)的功能是：判斷一個字符是字母字符、數(shù)字字符還是其

2、他字符，并做相應(yīng)的顯示字母字符顯示字符串字母數(shù)字字符顯示字符串?dāng)?shù)字 其他字符顯示字符串其他 要求使用Select Case語句來實(shí)現(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ù)的功能是：當(dāng)x的初值為10, 每年增長率為千分之八，計(jì)算多少年以后x的值能達(dá)到y(tǒng),并顯示所需年數(shù)的值（變量名必須為n）。要求使用Do

3、 While . Loop 語句來實(shí)現(xiàn)。x = 10n = 0Do While x yx = x *1.008Loopfun = 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 Dom = n n = r Loop fun = 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 Then

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

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

6、種至少有一枚)，求出其所有的換法，把結(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é)果輸出到窗體上。將答案數(shù)存放在變量

7、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 IfNextNextNext題目：(事件)單擊窗體。(響應(yīng))求1020之間所有素?cái)?shù)的乘積并輸出在窗體上。將結(jié)果存入變量L中。Dim i As IntegerDim j

8、 As IntegerDim b As Boolean l = 1b = 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)題目：(事件)單擊窗體。(響應(yīng))求 1 - 1/2 + 1/3 - 1/4 + + 1/99 - 1/100 的值。將結(jié)果存入變量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題目：(事件)雙擊窗體。(響應(yīng))求1+2+3+5+8+13+前20項(xiàng)的和，并