vb程序設(shè)計(jì)習(xí)題及答案第6章數(shù)組(參考版)
2025-01-18 04:55本頁面
【正文】 Next j Print Next iEnd Sub程序運(yùn)行結(jié)果如圖613所示：圖613程序運(yùn)行結(jié)果6．13 打印如下所示楊輝三角形11 11 2 11 3 3 11 4 6 4 11 5 10 10 5 1 aver(i) Next iEnd Sub圖612程序運(yùn)行結(jié)果程序運(yùn)行結(jié)果如圖612所示。 Next j Print sum(i)。 For j = 1 To 4 Print a(i, j)。 。 。 j amp。 i amp。 i amp。 i amp。6．12 輸入5個學(xué)生的學(xué)號，姓名和4門課的成績，計(jì)算每個學(xué)生的總分和平均分，并按平均成績從高到低輸出學(xué)生的成績單。 個運(yùn)動員成績:)) 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 名次 運(yùn)動員編號 運(yùn)動員成績 For i = 1 To 16 Print i, no(i), a(i) Next iEnd Sub程序運(yùn)行結(jié)果如圖611所示。 個運(yùn)動員編號:) a(i) = Val(InputBox(輸入第 amp?！緟⒖即鸢浮砍绦虼a設(shè)計(jì)Private Sub Form_Click() Dim no(1 To 16) As String, a(1 To 16) As Single For i = 1 To 16 no(i) = InputBox(輸入第 amp。6．11 某大學(xué)召開運(yùn)動會，有16個學(xué)生參加100米短跑，成績表如下：運(yùn)動員號 成績(秒) 運(yùn)動員號 成績(秒)023 075 102 062 091 021 078 018 162 107 032 017 045 056 圖611程序運(yùn)行結(jié)果038 123 a4(i) Exit For End If Next i If i n Then Print na$。 a3(i)。 a2(i)。 a1(i)。 。(3) 每次檢索后，詢問是否繼續(xù)檢索，并能根據(jù)輸入信息決定是否結(jié)束程序運(yùn)行。要求：(1) 使用動態(tài)數(shù)組，輸入的人數(shù)可以根據(jù)情況決定。6．10 有學(xué)生成績表如下所示： 姓名 數(shù)學(xué) 物理 化學(xué) 英語 張 三 85 87 93 95 李 四 91 90 93 75 王 五 83 77 63 85 趙 六 75 80 73 74 孫 七 72 79 86 65 試編寫程序，將上述成績輸入數(shù)組，并對學(xué)生成績進(jìn)行檢索。 Next j Print Next iEnd Sub程序運(yùn)行結(jié)果如圖69所示。 Next j Print Next iPrint B矩陣為: For i = 1 To 5 For j = 1 To 4
試題試卷相關(guān)推薦
鄂ICP備17016276號-1