【正文】 lect ____ Case n____________ Case 1 ch=”+”: Result=n1+n2 Case 2 ch=””: Result=n1n2 Case 3 ch=” ”: Result=n1*n2 Case 4 ch=”247。 ”: Result=n1/n2 End _________ Select____________ n1 amp。 ch amp。 n2 amp。 “=”。 End Sub Private Sub Command1_Click( ) ‘判斷運算結果并輸出相應的符號 If ___ ch = Val(())_________Then Text1。Tab(20)?！薄?” Ntrue= Ntrue+1 Else Text1。Tab(20)。” ” Nfalse = Nfalse +1 End If Text1=“ ” _____ If Nfalse 0 Or Ntrue 0 Then__________ Form_Click End If End Sub Private Sub Command2_Click( ) ‘統(tǒng)計答題情況 “” “答對了 ” amp。 n1 amp。 “道題； ”； “答錯了 ” amp。 n2 amp。 “道題 ” End Sub 11．統(tǒng)計并顯示 1~100 之間所有能夠被 7 整除的數(shù)。每行顯示 5 個數(shù)。 1 答案源代碼： Private Sub Command1_Click() Const m = 100 Dim a(m) As Integer x = 0 For i = 7 To 100 If i Mod 7 = 0 Then a(x) = i Print a(x)。 x = x + 1 If x Mod 5 = 0 Then Print j = j + 1 End If Next i Print Print 能被 7 整除的個數(shù)是 :。 j End Sub 12．求 n!， n 的值由用戶確定。 1 答案源程序： Private Function f(n As Integer) As Integer If n = 1 Then f = 1 Else f = n * f(n 1) End If End Function Private Sub Command1_Click() Dim m As Integer m = Val(()) () = Str(f(m)) End Sub 13．打印 Fibonacci 數(shù)列的前 20 項。這個數(shù)列有如下特點：第 1， 2 兩項為 1， 1。從第三項開始，該項是其前面兩項之和。 即： F1=1 (n=1) F2=1 (n=2) Fn=Fn1+Fn2 (n≥ 3) 1 答案源代碼： Private Function Fibonacci(a() As Long) As Integer Dim i As Integer, n As Integer n = UBound(a) a(1) = 1 a(2) = 1 For i = 3 To n a(i) = a(i 1) + a(i 2) Print a(i 1)。 a(i 2) Next i End Function Private Sub Command1_Click() Dim a() As Long, n As Integer n = InputBox(請輸入 n 的值： ) ReDim a(1 To n) Fibonacci a() End Sub 14．求 12+22+32+? +n2+?，當其和恰好大于或等于某一整數(shù) m時的和及此時的 n值。 運行界面如圖 。從文本框 Text1 輸入 m 值，用 Command1 實現(xiàn)計算，在 Picture1 中顯示結果。 1 答案源程序： Private Sub Command1_Click() Sum = 0 i = 0 m = Val(()) Do While (Sum m) i = i + 1 Sum = i * i + Sum Loop 1*1+2*2+3*3+...+n*n=。 Sum n=, i End Sub 15．編寫一個程序，打印如圖 所示的圖形。 1答案源代碼： Private Sub mand1_click() For i = 1 To 5 Print Tab(11 i)。 For j = 1 To 2 * i 1 Print * 。 Next j Print Next i End Sub 16. 編寫一程序，輸入 50 名同學的成績，求最高分、最低分和平均分。 1 答案源代碼： Private Sub Command1_Click() Const n = 50 Dim a(n) As Integer For i = 1 To n a(i) = Val(InputBox()) Sum = Sum + a(i) Next i Avg = Sum / 50 39。算出平均分 39。 Print Avg Max = a(1) For i = 2 To n If a(i) Max Then Max = a(i) Next i Print Max 39。算最高分 39。 Min = a(1) For i = 2 To n If a(i) Min Then Min = a(i) Next i Print Min 39。最低分 39。 End Sub 17. 輸入某學生的某科目考試成績（ 100 分制），輸出該生的成績等級。 90 分以上為“優(yōu)秀”， 80~89 分為“良好”， 70~79 分為中等， 60~69 分為“及格”， 60 分以下為“不及格”。 1 答案源程序： Private Sub Command1_Click() grade = Val(InputBox()) Select Case grade Case 90 To 100 Print 優(yōu)秀 Case 80 To 89 Print 良好 Case 70 To 79 Print 中等 Case 60 To 69 Print 及格 Case Else Print 不及格 End Select End Sub 18. 編寫一程序，輸入一段英文文本，統(tǒng)計各字母出現(xiàn)的次數(shù)（大小寫字母不區(qū)分）并顯示其結果。 1 答案源程序： Private Sub Command1_Click() Dim nw As Integer, i As Integer, n As Strin