1、題目：(事件)單擊窗體 (響應(yīng))用輸入框輸入一自然數(shù)，判斷是正數(shù)、負(fù)數(shù) 或零，并根據(jù)輸入的數(shù)用消息框顯示正數(shù)、負(fù)數(shù) 或零。n = InputBox(輸入一個(gè)自然數(shù))If n 0 Then result = 正數(shù)ElseIf n = A And UCase(n) = 0 And n = 90 Then fun = 優(yōu)秀ElseIf mark = 80 Then fun = 良好ElseIf mark = 70 Then fun = 中等ElseIf mark = 60 Then fun = 及格Else fun = 不及格End If題目：編寫函數(shù)fun，函數(shù)的功能是：判斷一個(gè)字符是字母字符、數(shù)

2、字字符還是其他字符，并做相應(yīng)的顯示。字母字符顯示字符串字母數(shù)字字符顯示字符串?dāng)?shù)字其他字符顯示字符串其他要求使用Select Case語(yǔ)句來(lái)實(shí)現(xiàn)。Private Function fun(n As String) As String*Program* End *End FunctionSelect Case n Case a To z, A To Z fun = 字母 Case 0 To 9 fun = 數(shù)字 Case Else fun = 其他End Select題目：編寫函數(shù)fun，函數(shù)的功能是：當(dāng)x的初值為10，每年增長(zhǎng)率為千分之八，計(jì)算多少年以后x的值能達(dá)到y(tǒng)，并顯示所需年數(shù)的值（變量名

3、必須為n）。要求使用Do While . Loop語(yǔ)句來(lái)實(shí)現(xiàn)。x = 10n = 0Do While x y x = x * 1.008 n = n + 1Loopfun = n題目：編寫函數(shù)fun，函數(shù)的功能是：計(jì)算兩個(gè)正整數(shù)的最大公約數(shù)，并顯示。如：兩個(gè)數(shù)為15、20，結(jié)果顯示5要求使用Do . Loop語(yǔ)句來(lái)實(shí)現(xiàn)。Do r = m Mod n If r = 0 Then Exit Do m = n n = rLoopfun = n編寫函數(shù)fun，函數(shù)的功能是：求11000以內(nèi)能同時(shí)被m、n整除的數(shù)的總和并顯示。Sum = 0For i = 1 To 1000 If i Mod m = 0

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

5、s = 100 + sPrint (CStr(s)題目：(事件)單擊窗體。 (響應(yīng))求出1000-9999之間具有如下特點(diǎn)的四位數(shù)字， 它的平方根恰好就是它中間的兩位數(shù)字，例如， 2500開平方為50，恰為2500的中間兩位，找出 所有這樣的四位數(shù)。并求出所有這樣的數(shù)的和 存入SUM中Dim i As Integer Dim 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 + i End If Next題目：(事件)雙擊窗體。 (響應(yīng))把一元鈔

6、票換成一分、二分和五分的硬幣 （每種至少有一枚），求出其所有的換法， 把結(jié)果輸出在窗體上。 將所有的換法的數(shù)目存入變量N中Dim i, j, k As IntegerFor i = 1 To 100 For j = 1 To 50 For k = 1 To 20 If (i + 2 * j + k * 5) = 100) Then Print (CStr(i) Print (CStr(j) Print (CStr(k) n = n + 1 End If Next NextNext題目：(事件)雙擊窗體。 (響應(yīng))寫程序解決百錢買百雞問(wèn)題：公雞3元1只， 母雞5元1只，小雞一元3只，怎樣用100

7、元買 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) Then Print (CStr(i) Print (CStr(j) Print (CStr(k) n = n + 1 End If Next NextNext題目：(事件)單擊窗體。 (響應(yīng))求1020之間所有素?cái)?shù)的乘積并輸

8、出在窗體上。 將結(jié)果存入變量L中。Dim i As Integer Dim j As Integer Dim b As Boolean l = 1 b = False For i = 10 To 20 For j = 2 To i - 2 If i Mod j = 0 Then b = True End If Next If b = False Then l = l * i End If b = False Next Print Str(l)題目：(事件)單擊窗體。 (響應(yīng))求1 - 1/2 + 1/3 - 1/4 + + 1/99 - 1/100的值。 將結(jié)果存入變量J中。Dim i As Integer For i = 1 To 100 If i Mod 2 = 1 Then j = j + 1 / i ElseIf i Mod 2 = 0 Then j = j - 1 / i End If Next Print j題目：(事件)雙擊窗體。 (響應(yīng))求1+2+3+5+8+13+前20項(xiàng)的和，并將結(jié) 果