在Visual Basic（VB）中，可以使用多种方法来创建和操作矩阵。以下是几个示例，展示了如何在VB中编程生成和操作矩阵：
生成简单二维矩阵
```vb
Option Explicit
Sub Main（）
Dim matrix（2, 2） As Integer
Dim i As Integer, j As Integer
For i = 0 To 2
For j = 0 To 2
matrix（i, j） = i * 3 + j + 1
Next j
Next i
For i = 0 To 2
For j = 0 To 2
Print matrix（i, j）； " "；
Next j
Next i
End Sub
```
生成特殊矩阵：对称矩阵
对称矩阵具有沿主对角线对称的特性。以下是一个生成3×3对称矩阵的VB代码示例：
```vb
Option Explicit
Sub Main（）
Dim matrix（2, 2） As Integer
Dim i As Integer, j As Integer
For i = 0 To 2
For j = 0 To i
matrix（i, j） = i * 3 + j + 1
matrix（j, i） = matrix（i, j）
Next j
Next i
For i = 0 To 2
For j = 0 To 2
Print matrix（i, j）； " "；
Next j
Next i
End Sub
```
矩阵乘法
```vb
Sub ComputeOuterSum（）
Dim matrix1（2, 2） As Integer
Dim matrix2（2, 2） As Integer
Dim result（2, 2） As Integer
Dim i As Integer, j As Integer, k As Integer
' 填充矩阵1
matrix1（0, 0） = 1
matrix1（0, 1） = 2
matrix1（0, 2） = 3
matrix1（1, 0） = 4
matrix1（1, 1） = 5
matrix1（1, 2） = 6
matrix1（2, 0） = 7
matrix1（2, 1） = 8
matrix1（2, 2） = 9
' 填充矩阵2
matrix2（0, 0） = 9
matrix2（0, 1） = 8
matrix2（0, 2） = 7
matrix2（1, 0） = 6
matrix2（1, 1） = 5
matrix2（1, 2） = 4
matrix2（2, 0） = 3
matrix2（2, 1） = 2
matrix2（2, 2） = 1
' 矩阵乘法
For i = 0 To 2
For j = 0 To 2
result（i, j） = 0
For k = 0 To 2
result（i, j） = result（i, j） + matrix1（i, k） * matrix2（k, j）
Next k
Next j
Next i
' 打印结果
For i = 0 To 2
For j = 0 To 2
Print result（i, j）； " "；
Next j
Next i
End Sub
```
找出矩阵中的最大值