vb程序設(shè)計強化復(fù)習(xí)主題講座(1)(存儲版)
【正文】 Next j Space((n i + 1) * 2)。 個元素 ) Next j Next i For i = 1 To 2 For j = 1 To 3 ________________ Next j Next I ……. 例：在窗體上打印輸出楊輝三角形 (n由鍵盤輸入 ) Private Sub Form_Click() Dim n As Integer, a() As Integer Dim i As Integer, j As Integer n = InputBox(請輸入 n， 0n10) Redim a(n,n) For i = 1 To n a(i, 1) = 1: a(i, i) = 1 Next i For i = 3 To n For j = 2 To i 1 a(i, j) = a(i 1, j 1) + a(i 1, j) Next j, i For i = 1 To n Print Tab(30 2 * i)。 Next j 39。 39。 x 重新組合的字符串 。 Public Sub sortchar() Dim x As String 39。 ?? Next I End Sub 統(tǒng)計在隨機產(chǎn)生的 10個兩位整數(shù)中的偶數(shù)個數(shù) ， 并用消息框輸出 。 If a(i) Mod 2 = 0 Then count = count + 1 End If Next i MsgBox (偶數(shù)個數(shù) : 3 ) End Sub 主題一：生成數(shù)組并統(tǒng)計 產(chǎn)生 100個 [0， 99]范圍內(nèi)的隨機整數(shù)，統(tǒng)計個位上的數(shù)字分別為 1， 2， 3， 4， 5， 6， 7，8， 9， 0的數(shù)的個數(shù)并打印出來。拆分出的字符 Dim L as Integer 39。 ins = Val(InputBox(ins=)) pos = 1 For i = 1 To 9 2 pos = i + 1 Next i For j = 9 To pos Step 1 3 Next j 4 For i = 1 To 10 39。 Next i End If End Sub 主題七：二維數(shù)組中設(shè)置對角線元素 Public Sub PrintArray() 39。 Public Sub Transpose() Dim a(1 To 6, 1 To 6) As Integer Dim i As Integer, j As Integer 原始數(shù)據(jù) For i = 1 To 6 For j = 1 To 6 a(i, j) = Int(Rnd * 10) a(i, j)。 Next j Print Next i End Sub [題 24] Money過程是輸出由數(shù)字組成的如下所示楊輝三角形圖案 Option Explicit Private Sub Form_click() Const n = 8 Dim a(n + 1) As Byte, i As Integer, j As Integer Dim s As String 39。 ?編制程序，用隨機函數(shù)產(chǎn)生 20個兩位數(shù)的整數(shù)，存于 4行 5列的二維數(shù)組中，將數(shù)組按矩陣形式輸出到窗體，并求出其是最大元素及它的行、列坐標(biāo)。計算數(shù)字前的空格數(shù) a(1) 39。 j amp。********
醫(yī)療健康相關(guān)推薦
鄂ICP備17016276號-1