在VB（Visual Basic）中，要将一个n阶矩阵转置，你需要创建一个新的矩阵，其行数和列数与原矩阵相反，然后逐个复制原矩阵的元素到新矩阵的对应位置。以下是一个简单的VB程序示例，用于将用户输入的n阶矩阵转置并打印结果：
```vb
Option Explicit
Option Base 1
Private Sub Command1_Click（）
Dim n As Integer
Dim i As Integer, j As Integer
Dim a（1 To 10, 1 To 10） As Integer ' 假设矩阵最大为10x10
Dim b（1 To 10, 1 To 10） As Integer ' 转置后的矩阵
Dim t As Integer
' 获取用户输入的矩阵大小
n = Val（InputBox（"请输入矩阵的大小（n）："））
' 初始化原矩阵和转置矩阵
For i = 1 To n
For j = 1 To n
a（i, j） = Int（Rnd * 90） + 10 ' 随机生成10到99之间的整数
b（j, i） = a（i, j） ' 直接将a（i, j）的值赋给b（j, i）实现转置
Next j
Next i
' 打印原矩阵
Print "原矩阵："
For i = 1 To n
For j = 1 To n
Print Tab（5 * j）； a（i, j）
Next j
Next i
' 打印转置后的矩阵
Print "转置后的矩阵："
For i = 1 To n
For j = 1 To n
Print Tab（5 * j）； b（i, j）
Next j
Next i
End Sub
```
在这个程序中，我们首先获取用户输入的矩阵大小n，然后创建两个二维数组a和b，其中a用于存储原矩阵，b用于存储转置后的矩阵。通过两层嵌套循环，我们遍历原矩阵的每个元素，并将其值复制到转置矩阵的对应位置。最后，我们分别打印原矩阵和转置后的矩阵。
请注意，这个程序假设矩阵的大小不会超过10x10。在实际应用中，你可能需要根据具体情况调整数组的大小，或者使用动态数组（如`ReDim`）来处理任意大小的矩阵。此外，如果你想要处理的是方阵（即行数和列数相等的矩阵），你可以简化代码，因为转置方阵时不需要额外的空间来存储转置后的矩阵。