vb程序設(shè)計(jì)習(xí)題及答案第7章過(guò)程-資料下載頁(yè)
2025-06-05 11:08本頁(yè)面
【正文】 績(jī)。 (要求 :學(xué)生的學(xué)號(hào) ,每門課的成績(jī)以及成績(jī)單的打印 由主程序完成。 ) 【參考答案】 程序代碼設(shè)計(jì) Private Sub Form_Click() Dim no(5) As Long, a(5, 4) As Integer Dim s(5) As Integer, aver(5) As Integer For i = 1 To 5 no(i) = InputBox(no:) For j = 1 To 4 a(i, j) = InputBox(score:) Next j Next i Call sort(no(), a(), s(), aver(), 5, 4) Print 名次 學(xué)號(hào) 平均成績(jī) For i = 1 To 5 Print i。 。 no(i)。 。 aver(i) Next i End Sub 圖 710程序運(yùn)行結(jié)果 Sub sort(noamp。(), a%(), s%(), aver%(), n%, m%) For i = 1 To n s(i) = 0 For j = 1 To m s(i) = s(i) + a(i, j) Next j aver(i) = s(i) / m Next i For i = 1 To n 1 For j = i + 1 To n If aver(i) aver(j) Then t = aver(i) aver(i) = aver(j) aver(j) = t k = no(i) no(i) = no(j) no(j) = k End If Next j Next i End Sub 程序運(yùn)行結(jié)果如圖 711 所示： 7． 12 用 Sub 過(guò)程輸出由字符組成的三角形圖形 ,通過(guò)三次調(diào)用該過(guò)程，輸出下列三種圖形 : A * O A A A * * * O O O A A A A A * * * * * O O O O O A A A A A A A * * * * * * * O O O O O O O A A A A A A A A A * * * * * * * * * O O O O O O O O O 【參考答案】 程序代碼設(shè)計(jì) Private Sub Form_Click() a$ = A Call prnt(a$) a$ = * Call prnt(a$) a$ = O Call prnt(a$) End Sub Sub prnt(a$) For i = 1 To 5 Print Tab(15 i)。 圖 711程序運(yùn)行結(jié)果 For j = 1 To 2 * i 1 Print a$。 Next j Print Next i End Sub 程序運(yùn)行結(jié)果如圖 712 所示 . 圖 712 程序運(yùn)行結(jié)果
畢業(yè)設(shè)計(jì)相關(guān)推薦
鄂ICP備17016276號(hào)-1