矩阵转置（行列互换）

将一个矩阵赋值并转置。

设计步骤如下：

(1) 建立应用程序用户界面与设置对象属性

选择“新建”工程，进入窗体设计器，在窗体中增加命令按钮Command1，并将它的Caption设置为“转置”。

 (2) 编写代码

定义说明部分：

Option Base 1

Dim a(3, 3), b(3, 3) As Integer

Dim c As Integer

窗体装载代码：

Private Sub Form_Load()

Show

c = 1

For i = 1 To 3

For j = 1 To 3

a(i, j) = c

c = c + 1

Next j

Next i

Print "矩阵转置前："

For i = 1 To 3

For j = 1 To 3

Print a(i, j);

Next j

Print

Next i

End Sub

转置命令按钮Command1的Click事件代码：

Private Sub Command1_Click()

Print

Print "矩阵转置后："

For i = 1 To 3

For j = 1 To 3

b(j, i) = a(i, j)

Next j

Next i

For i = 1 To 3

For j = 1 To 3

Print b(i, j);

Next j

Print

Next i

End Sub

 (3) 运行程序

按【F5】键或单击工具栏上“启动”按钮运行程序。