vb程序設(shè)計(jì)習(xí)題及答案第6章數(shù)組-資料下載頁(yè)
2025-01-15 04:55本頁(yè)面
【正文】 , a(i) Next iEnd Sub程序運(yùn)行結(jié)果如圖611所示。6．12 輸入5個(gè)學(xué)生的學(xué)號(hào)，姓名和4門課的成績(jī)，計(jì)算每個(gè)學(xué)生的總分和平均分，并按平均成績(jī)從高到低輸出學(xué)生的成績(jī)單。（要求：不使用自定義數(shù)據(jù)類型）【參考答案】程序代碼設(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é)號(hào):)) 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。 門課成績(jī):)) 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é)號(hào) 姓名 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 iEnd Sub圖612程序運(yùn)行結(jié)果程序運(yùn)行結(jié)果如圖612所示。6．13 打印如下所示楊輝三角形11 11 2 11 3 3 11 4 6 4 11 5 10 10 5 1【參考答案】程序代碼設(shè)計(jì)Dim a() As IntegerPrivate 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 iEnd Sub程序運(yùn)行結(jié)果如圖613所示：圖613程序運(yùn)行結(jié)果
試題試卷相關(guān)推薦
鄂ICP備17016276號(hào)-1