visual basic中的矩阵

' 创建一个3x3的矩阵
Dim matrix(2, 2) As Integer

' 初始化矩阵元素
matrix(0, 0) = 1
matrix(0, 1) = 2
matrix(0, 2) = 3
matrix(1, 0) = 4
matrix(1, 1) = 5
matrix(1, 2) = 6
matrix(2, 0) = 7
matrix(2, 1) = 8
matrix(2, 2) = 9

' 访问矩阵元素
Dim element As Integer = matrix(1, 1) ' 获取第2行第2列的元素（值为5）

' 输出整个矩阵
For i As Integer = 0 To 2
    For j As Integer = 0 To 2
        Console.Write(matrix(i, j) & " ")
    Next
    Console.WriteLine()
Next

' 矩阵相加
Dim matrix2(2, 2) As Integer
matrix2(0, 0) = 2
matrix2(0, 1) = 3
matrix2(0, 2) = 4
matrix2(1, 0) = 5
matrix2(1, 1) = 6
matrix2(1, 2) = 7
matrix2(2, 0) = 8
matrix2(2, 1) = 9
matrix2(2, 2) = 10

Dim result(2, 2) As Integer

For i As Integer = 0 To 2
    For j As Integer = 0 To 2
        result(i, j) = matrix(i, j) + matrix2(i, j)
    Next
Next

' 输出相加结果
For i As Integer = 0 To 2
    For j As Integer = 0 To 2
        Console.Write(result(i, j) & " ")
    Next
    Console.WriteLine()
Next