vb程序設(shè)計習(xí)題及答案第6章數(shù)組(存儲版)
【正文】 075 102 062 091 021 078 018 162 107 032 017 045 056 圖611程序運行結(jié)果038 123 6．12 輸入5個學(xué)生的學(xué)號，姓名和4門課的成績，計算每個學(xué)生的總分和平均分，并按平均成績從高到低輸出學(xué)生的成績單。 j amp。 Next j Print sum(i)。 Next j Print Next iEnd Sub程序運行結(jié)果如圖613所示：圖613程序運行結(jié)果 For j = 1 To 4 Print a(i, j)。 i amp。 個運動員成績:)) Next iFor i = 1 To 15 l = i For j = i + 1 To 16 If a(l) a(j) Then l = j Next j If i l Then t = no(i) no(i) = no(l) no(l) = t t = a(i) a(i) = a(l) a(l) = t End If Next i Print 名次 運動員編號 運動員成績 For i = 1 To 16 Print i, no(i), a(i) Next iEnd Sub程序運行結(jié)果如圖611所示。 a4(i) Exit For End If Next i If i n Then Print na$。 。 Next j Print Next iEnd Sub程序運行結(jié)果如圖69所示。 z / n Print 反面落地的次數(shù)為：。 a(9) Print 100分：。 b(i, j)。 a(i, j)。 a(i, j)。 Next i Print For j = 1 To 9 Print Tab(5 * m)。6．2 編寫程序,輸出上題乘法九九表對角線上的數(shù)。 Next j Print Next iEnd Sub圖61程序運行結(jié)果程序運行結(jié)果如圖61所示： a(n, i)。 Else Print Tab(5 * j)。 Else Print Tab(5 * j)。 Next j Print Next i Print 輸出b數(shù)組: For i = 1 To 3 For j = 1 To 3 Print Tab(5 * j)。 a(8) Print 90分～99分：。 z, 概率為:。 Next j Print Next i Print A矩陣B矩陣結(jié)果為： For i = 1 To 5 For j = 1 To 4 Print a(i, j) b(i, j)?！緟⒖即鸢浮砍绦虼a設(shè)計Dim nam() As String, a1() As Integer, a2() As IntegerDim a3() As Integer, a4() As IntegerPrivate Sub Form_Click() n = Val(InputBox(輸入學(xué)生人數(shù):)) ReDim nam(n), a1(n), a2(n), a3(n), a4(n) For i = 1 To n nam(i) = InputBox(輸入學(xué)生姓名:) a1(i) = Val(InputBox(輸入數(shù)學(xué)成績:)) a2(i) = Val
試題試卷相關(guān)推薦
鄂ICP備17016276號-1