vb程序設(shè)計(jì)習(xí)題及答案第7章過程(參考版)
2025-06-09 11:08本頁(yè)面
【正文】 Next j Print Next i End Sub 程序運(yùn)行結(jié)果如圖 712 所示 . 圖 712 程序運(yùn)行結(jié)果 。(), 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 過程輸出由字符組成的三角形圖形 ,通過三次調(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 Sub Sub prnt(a$) For i = 1 To 5 Print Tab(15 i)。 。 。 (要求 :學(xué)生的學(xué)號(hào) ,每門課的成績(jī)以及成績(jī)單的打印 由主程序完成。 End If Next i Print )。 。 。 。 。 。 。 )10=(。 【參考答案】 程序代碼設(shè)計(jì) Private Sub Form_Click() Dim b(30) As Integer Do Print 110 進(jìn)制轉(zhuǎn)換為 2 進(jìn)制 Print 210 進(jìn)制轉(zhuǎn)換為 8 進(jìn)制 Print 310 進(jìn)制轉(zhuǎn)換為 16 進(jìn)制 Print 4退出 n = Val(InputBox(請(qǐng)選擇 1， 2， 3，或 4:)) Select Case n Case 1, 2, 3 a = Val(InputBox(請(qǐng)輸入一個(gè) 10 進(jìn)制整數(shù) :)) m = Val(InputBox(請(qǐng)輸入要轉(zhuǎn)換的進(jìn)制 :)) Call zhuanh(a, b(), m) Case 4 Exit Do End Select L
畢業(yè)設(shè)計(jì)相關(guān)推薦
鄂ICP備17016276號(hào)-1