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

1、題目：（事件）單擊窗體 （響應(yīng)）用輸入框輸入一自然數(shù)，判斷是”正數(shù)”、”負(fù)數(shù)”或”零”，并根據(jù)輸入的數(shù)用消息框顯示”正數(shù)”、”負(fù)數(shù)”或 零 。n = InputBox（輸入一個自然數(shù)）If n 0 ThenElself n = A And UCase( n) = 0 And n = 90 The nfun =優(yōu)秀ElseIf mark = 80 The nfun = “良好result =正數(shù)-字母數(shù)字字符顯示字符串?dāng)?shù)字其他字符顯示字符串其他ElseIf mark = 70 Thenfun = 中等ElseIf mark = 60 Thenfun = 及格Elsefun = 不及格End If

2、題目：編寫函數(shù)fun，函數(shù)的功能是：判斷一個字符是字母字符、數(shù)字字符還是其他字符，并做相應(yīng)的顯示。要求使用Select Case語句來實現(xiàn)。Private Function fun(n As String) As String *Program* 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,每年增長率為千分之八,計算多少年以后x的值能達(dá)到y(tǒng),并顯示所需年數(shù)的值（變量名必須為n）。

3、要求使用Do While . Loop語句來實現(xiàn)。x = 10Do While x yx = x * 1.008Loop fun = n 題目：編寫函數(shù)funfun,函數(shù)的功能是：計算兩個正整數(shù)的 最大公約數(shù)，并顯示。如： 兩個數(shù)為1515、2020,結(jié)果顯示55 要求使用DoDo . LoopLoop語句來實現(xiàn)。Dor = m Mod nIf r = 0 Then Exit DoLoop字母字符顯示字符串字母數(shù)字字符顯示字符串其他字符顯示字符串?dāng)?shù)字其他fun = n編寫函數(shù)funfun，函數(shù)的功能是：求1100011000以內(nèi)能 同時被m m、n n整除的數(shù)的總和并顯示。Sum = 0For

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

5、0For i = 2 To 10Next s = 100 + sPrint （CStr（s）題目：（事件）單擊窗體。 （響應(yīng)）求岀1000-99991000-9999之間具有如下特點(diǎn)的四位數(shù)字， 它的平方根恰好就是它中間的兩位數(shù)字，例如， 25002500開平方為5050，恰為25002500的中間兩位，找岀 所有這樣的四位數(shù)。并求岀所有這樣的數(shù)的和 存入SUMSUM中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 = s

6、um + iEnd IfNext 題目：（事件）雙擊窗體。 （響應(yīng)）把一元鈔票換成一分、二分和五分的硬幣 （每種至少有一枚），求出其所有的換法， 把結(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 IfNextNextNext 題目：（事件）雙擊窗體。 （響應(yīng)）寫程序解決百錢買百雞問題：公

7、雞 母雞5 5元1 1只，小雞一元3 3只， 100100只雞。把結(jié)果輸出到窗體上。 將答案數(shù)存放在變量N N中Dim i, j, k As IntegerFor i = 1 To 20 母雞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 題目：（事件）單擊窗體。 （響應(yīng)）求10201020之間所有素數(shù)的乘積并輸出在窗體上。 將結(jié)果存入變量L L中。Dim i A

8、s IntegerDim j As IntegerDim b As Booleanb = FalseFor i = 10 To 20For j = 2 To i - 2If i Mod j = 0 Then b = TrueEnd If3 3元1 1只，怎樣用100100元買For j = 1 To 33 公雞For k = 3 To 100 小雞NextIf b = False ThenEnd Ifb = FalseNextPrint Str(l) 題目：（事件）單擊窗體。 （響應(yīng)）求1 1 - - 1/21/2 + + 1/31/3 - - 1/41/4 + + 將結(jié)果存入變量J 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+1+2+3+5+8+13+前2020項的和，并將結(jié) 果在窗體上輸出。將結(jié)果存入變量SUMSUM中。