【正文】
練習 產生 100個互不相等的三位正整數 用隨機函數產生三位數的偶數 100個,再將這 100個數從小到大排序 ,按每行 10個輸出; 編制程序,用隨機函數產生 20個兩位數的整數,存于 4行 5列的二維數組中,將數組按矩陣形式輸出到窗體,并求出其是最大元素及它的行、列坐標。 Next j Next i End sub 練習 ?用隨機函數產生 20個 1—100之間隨機數,求出這 20個數的平均值后,再將平均值在內的這 21個數從小到大排序輸出。計算其余行的數并打印 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。給數組 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 轉置后數據 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 將一個二維數組行和列元素交換,存到另一個二維數組中 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列的數字方陣 ,使兩對角線上元素均為 1,其余均為 2 39。 。