VBA - 创建 n × m 矩阵的函数

VBA

使用VBA编程语言可以轻松创建n × m矩阵，这是一种非常有用的功能。矩阵是一个二维数组，可以存储和处理大量数据。在本文中，我将介绍如何使用VBA编写一个函数来创建n × m矩阵，并提供一个实际的案例代码来演示其用法。

VBA
Function CreateMatrix(n As Integer, m As Integer) As Variant
    Dim matrix() As Variant
    ReDim matrix(1 To n, 1 To m) As Variant
    CreateMatrix = matrix
End Function

VBA
Sub TestCreateMatrix()
    Dim matrix() As Variant
    Dim i As Integer, j As Integer
    matrix = CreateMatrix(3, 4)
    For i = 1 To 3
        For j = 1 To 4
            matrix(i, j) = i * j
        Next j
    Next i
    For i = 1 To 3
        For j = 1 To 4
            Debug.Print matrix(i, j)
        Next j
    Next i
End Sub

在VBA中创建n × m矩阵的函数，需要明确矩阵的行数n和列数m，并使用二维数组来存储数据。以下是一个示例函数，它接受行数和列数作为参数，并返回一个填充了默认值（例如0）的矩阵。

<code>VBA<br/>Function CreateMatrix(n As Integer, m As Integer) As Variant ' 创建一个n行m列的矩阵，并用0填充 Dim matrix() As Variant ReDim matrix(1 To n, 1 To m) Dim i As Integer, j As Integer For i = 1 To n For j = 1 To m matrix(i, j) = 0 ' 可以用其他默认值替换 Next j Next i CreateMatrix = matrix End Function</code>

使用示例：

<code>VBA<br/>Sub TestCreateMatrix() Dim myMatrix As Variant myMatrix = CreateMatrix(3, 4) ' 创建一个3行4列的矩阵 ' 打印矩阵内容（示例） Dim i As Integer, j As Integer For i = LBound(myMatrix, 1) To UBound(myMatrix, 1) For j = LBound(myMatrix, 2) To UBound(myMatrix, 2) Debug.Print myMatrix(i, j); Next j Debug.Print Next i End Sub</code>

这个函数首先声明一个动态二维数组，然后使用ReDim语句根据输入的行数和列数调整数组大小。接着，通过嵌套循环将矩阵的每个元素初始化为0（或其他默认值）。最后，函数返回这个二维数组。

在测试子程序中，我们调用CreateMatrix函数创建一个3行4列的矩阵，并通过嵌套循环打印矩阵的内容。你可以根据需要修改默认值或添加其他初始化逻辑。