【正文】 四十個人的信息 39。39。39。班級號 39。 Next i End Sub 21. 有 5 個班（假設(shè)每班學生均為 8 人）參加某科目的考試，編寫一個程序求出考試成績最高分的學生，即要求找出該學生所在的班號以及在班中的學號。 答案源代碼： Private Sub Command1_Click() Const n = 10 Dim a(n) As Integer For i = 1 To 10 a(i) = Int(Rnd * 52 + 10) Next i For i = 1 To 10 a(i)。 Next I End Sub 起泡法排序： Private Sub Command1_Click() Const n = 10 Dim a(n) As Integer For I = 1 To 10 a(I) = Val(InputBox()) Next I For j = 1 To n 1 For k = 1 To n j If a(k) a(k + 1) Then temp = a(k): a(k) = a(k + 1): a(k + 1) = temp End If Next k Next j For I = 1 To 10 Print a(I)。 nw End Sub 19. 輸入 10 名同學的成績，分別用選擇法和起泡法對其按升序（由小到大）排序。 1 答案源程序： Private Sub Command1_Click() Dim nw As Integer, i As Integer, n As String Dim st As String, char As String, last As String st = (): last = : n = Len(st) For i = 1 To n char = Mid(st, i, 1) If UCase(char) = A And UCase(char) = Z Then nw = nw + 1 Select Case last Case , , 。 90 分以上為“優(yōu)秀”， 80~89 分為“良好”， 70~79 分為中等， 60~69 分為“及格”， 60 分以下為“不及格”。最低分 39。算最高分 39。算出平均分 39。 Next j Print Next i End Sub 16. 編寫一程序，輸入 50 名同學的成績，求最高分、最低分和平均分。 1答案源代碼： Private Sub mand1_click() For i = 1 To 5 Print Tab(11 i)。 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=。 運行界面如圖 。 即： 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)。這個數(shù)列有如下特點：第 1， 2 兩項為 1， 1。 j End Sub 12．求 n!， n 的值由用戶確定。 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)。 “道題 ” End Sub 11．統(tǒng)計并顯示 1~100 之間所有能夠被 7 整除的數(shù)。 “道題； ”； “答錯了 ” amp?！?” 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?！薄?” Ntrue= Ntrue+1 Else Text1。 End Sub Private Sub Command1_Click( ) ‘判斷運算結(jié)果并輸出相應(yīng)的符號 If ___ ch = Val(())_________Then Text1。 n2 amp。 ”: Result=n1/n2 End _________ Select____________ n1 amp。） ，由學生進行計算作答，然后計算機對學生的作答結(jié)果進行判斷，如果正確，在題后打“ √ ”，否則打“ ”，并可在程序運行結(jié)束前統(tǒng)計答對與答錯的題數(shù)。 答案源程序： Private Sub Command1_Click() Dim count As Integer count = Val(()) Select Case count Case 0 To 100 Sum = * count Case 101 To 125 Sum = * count Case 126 To 150 Sum = * count Case 151 To 175 Sum = 1 * count Case 176 To 200 Sum = * count Case Else Sum = * count End Select () = Str(Sum) End Sub 10．編寫一個小學生進行四則運算的檢驗程序。 不是閏年 End If End Sub 9．為了節(jié)約用電，制定如下隨用電量增加而逐級提高電費的收費辦法，根據(jù)用電量的大小分段計費，標準如表 所示。 是閏年 ElseIf n Mod 400 = 0 Then Print n。 ② 或能被 400 整除的年份。 e End Sub 8．編寫一個程序，判斷某一年是否為閏年。顛倒順序 39。 Print 輸出的隨機數(shù)為 :。