以下程序段用于实现矩阵转置,即将一个 n × m 的矩阵的行和列 ' 互换。 '------------------------------------------------------- Private Sub Form_Click() Const n = 3 Const m = 4 Dim a(n, m), b(m, m) As Integer For I = 1 To n For j = 1 To m a(I, j) = Int(Rnd * 90) + 10 Next j '**********SPACE********** 【 ? 】 For I = 1 To n For j = 1 To m '**********SPACE********** 【 ? 】 Next j Next I Print " 矩阵转置前 " For I = 1 To n For j = 1 To m Print a(I, j); Next j '**********SPACE********** 【 ? 】 Next I Print " 矩阵转置后 " For I = 1 To m For j = 1 To n Print b(I, j); Next j Print Next I End Sub