vb程序設(shè)計(jì)習(xí)題及答案第6章數(shù)組-資料下載頁
2025-06-05 11:08本頁面
【正文】 a(i) Next i End Sub 程序運(yùn)行結(jié)果如圖 611所示。 6． 12 輸入 5 個(gè)學(xué)生的學(xué)號，姓名和 4 門課的成績，計(jì)算每個(gè)學(xué)生的總分和平均分，并按平均成績從高到低輸出學(xué)生的成績單。 （要求：不使用自定義數(shù)據(jù)類型） 【參考答案】 圖 611程序運(yùn)行結(jié)果 程序代碼設(shè)計(jì) Private Sub Form_Click() Dim no(5) As Long, nam(5) As String, a(5, 4) As Single Dim sum(5) As Single, aver(5) As Single For i = 1 To 5 no(i) = Val(InputBox(輸入第 amp。 i amp。 個(gè)學(xué)生的學(xué)號 :)) nam(i) = InputBox(輸入第 amp。 i amp。 個(gè)學(xué)生的姓名 :) For j = 1 To 4 a(i, j) = Val(InputBox(輸入第 amp。 i amp。 個(gè)學(xué)生第 amp。 j amp。 門課成績 :)) Next j Next i For i = 1 To 5 sum(i) = 0 For j = 1 To 4 sum(i) = sum(i) + a(i, j) Next j aver(i) = CInt(sum(i) / 4) Next i For i = 1 To 4 For j = i + 1 To 5 If aver(i) aver(j) Then t = no(i) no(i) = no(j) no(j) = t t = nam(i) nam(i) = nam(j) nam(j) = t t = sum(i) sum(i) = sum(j) sum(j) = t t = aver(i) aver(i) = aver(j) aver(j) = t For k = 1 To 4 t = a(i, k) a(i, k) = a(j, k) a(j, k) = t Next k End If Next j Next i Print 學(xué)號 姓名 a1 a2 a3 a4 總分 平均分 For i = 1 To 5 Print no(i)。 。 nam(i)。 。 Tab(20)。 For j = 1 To 4 Print a(i, j)。 。 Next j Print sum(i)。 。 aver(i) Next i End Sub 程序運(yùn)行結(jié)果如圖 612所示。 6． 13 打印如下所示楊輝三角形 1 1 1 1 2 1 1 3 3 1 1 4 6 4 1 1 5 10 10 5 1 【參考答案】 程序代碼設(shè)計(jì) Dim a() As Integer Private Sub Form_Click() n = Val(InputBox(輸入 n 值 :)) ReDim a(n, n) As Integer For i = 1 To n a(i, 1) = 1 a(i, i) = 1 Next i For i = 2 To n For j = 2 To i a(i, j) = a(i 1, j 1) + a(i 1, j) Next j Next i Print 輸出揚(yáng)輝三角形： For i = 1 To n For j = 1 To i Print Format(a(i, j), @@@@)。 Next j Print Next i End Sub 程序運(yùn)行結(jié)果如 圖 613所示： 圖 612程序運(yùn)行結(jié)果 圖 613程序運(yùn)行結(jié)果
畢業(yè)設(shè)計(jì)相關(guān)推薦
鄂ICP備17016276號-1