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