【正文】
練習(xí) 產(chǎn)生 100個(gè)互不相等的三位正整數(shù) 用隨機(jī)函數(shù)產(chǎn)生三位數(shù)的偶數(shù) 100個(gè),再將這 100個(gè)數(shù)從小到大排序 ,按每行 10個(gè)輸出; 編制程序,用隨機(jī)函數(shù)產(chǎn)生 20個(gè)兩位數(shù)的整數(shù),存于 4行 5列的二維數(shù)組中,將數(shù)組按矩陣形式輸出到窗體,并求出其是最大元素及它的行、列坐標(biāo)。 Next j Next i End sub 練習(xí) ?用隨機(jī)函數(shù)產(chǎn)生 20個(gè) 1—100之間隨機(jī)數(shù),求出這 20個(gè)數(shù)的平均值后,再將平均值在內(nèi)的這 21個(gè)數(shù)從小到大排序輸出。計(jì)算其余行的數(shù)并打印 For i = 2 To 1 a(i) = a(i 1) For j = 2 To 2 Step –1 3 Next j Space((n i + 1) * 2)。 39。給數(shù)組 a賦初值 For i = 1 To n + 1 a(i) = 0 Next i 39。 Trim(Str(a(i, j)))。 個(gè)元素 ) 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(請(qǐng)輸入 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)。 , amp。 Next j Next i For i = 2 To 6 For j = 1 To 1 2 Next j Next i 轉(zhuǎn)置后數(shù)據(jù) For i = 1 To 6 For j = 1 To 6 3 Next j Next i End Sub Public Sub Swap(a As Integer, b As Integer) Dim temp As Integer temp = a a = b b = temp End Sub 將一個(gè)二維數(shù)組行和列元素交換,存到另一個(gè)二維數(shù)組中 Dim a(1 To 2, 1 To 3) AS Integer Dim b(1 To 3, 1 To 2) AS Integer Dim i, j AS Integer For i = 1 To 2 For j = 1 To 3 a(i, j)=InputBox(請(qǐng)輸入第 amp。 Swap過程用于交換兩個(gè)變量的值。 Next j 39。******** 錯(cuò)誤 1 ********* If i j Or i 6 j Then a(i, j) = 2 Else a(i, j) = 1 39。下面程序用于打印 5行 5列的數(shù)字方陣 ,使兩對(duì)角線上元素均為 1,其余均為 2 39。 。