在VB（Visual Basic）中，将一个n阶矩阵转置的方法如下：
声明矩阵变量
使用`Dim`语句声明一个二维数组来存储矩阵。例如，声明一个n行n列的矩阵可以使用`Dim a（n, n） As Integer`。
初始化矩阵
使用嵌套的`For`循环来初始化矩阵的元素。例如，可以使用随机数填充矩阵：
```vb
For i = 1 To n
For j = 1 To n
a（i, j） = Int（Rnd * 90 + 10） ' 生成1到90之间的随机整数
Next j
Next i
```
转置矩阵
创建一个新的二维数组来存储转置后的矩阵。
使用嵌套的`For`循环来交换原矩阵的元素到新矩阵中，实现转置。例如：
```vb
Dim b（n, n） As Integer
For i = 1 To n
For j = 1 To n
b（j, i） = a（i, j） ' 将a（i, j）的值赋给b（j, i）
Next j
Next i
```
输出转置后的矩阵
使用嵌套的`For`循环来打印转置后的矩阵。例如：
```vb
For i = 1 To n
For j = 1 To n
Print a（j, i）； ' 打印转置后的矩阵元素
Next j
Next i
```
```vb
Option Explicit
Option Base 1
Private Sub CommandButton1_Click（）
Dim n As Integer
n = Val（TextBox1.Text） ' 获取用户输入的矩阵阶数
Dim a（n, n） As Integer
Dim b（n, n） As Integer
' 初始化矩阵a
For i = 1 To n
For j = 1 To n
a（i, j） = Int（Rnd * 90 + 10） ' 生成1到90之间的随机整数
Next j
Next i
' 转置矩阵a到矩阵b
For i = 1 To n
For j = 1 To n
b（j, i） = a（i, j）
Next j
Next i
' 输出转置后的矩阵b
For i = 1 To n
For j = 1 To n
Print a（j, i）； ' 打印转置后的矩阵元素
Next j
Next i
End Sub
```
在这个示例中，用户通过输入框输入矩阵的阶数，程序会生成一个n阶矩阵，将其转置，并输出转置后的矩阵。