vb程序設(shè)計(jì)習(xí)題及答案第7章過程-資料下載頁
2025-01-14 21:58本頁面
【正文】 打印由主程序完成。)【參考答案】程序代碼設(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) 平均成績 For i = 1 To 5 Print i。 。 no(i)。 。 aver(i) Next iEnd Sub圖711程序運(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 iEnd Sub程序運(yùn)行結(jié)果如圖711所示：7．12 用Sub過程輸出由字符組成的三角形圖形,通過三次調(diào)用該過程，輸出下列三種圖形: 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 SubSub prnt(a$) For i = 1 To 5 Print Tab(15 i)。 For j = 1 To 2 * i 1 Print a$。 Next j Print Next i圖712程序運(yùn)行結(jié)果End Sub程序運(yùn)行結(jié)果如圖712所示.
試題試卷相關(guān)推薦
鄂ICP備17016276號(hào)-1