Excel 宏录制与VBA编程 —— 8、一维、二维、动态数组

信必诺

已于 2023-06-03 18:58:09 修改

阅读量1.3k

点赞数 1

分类专栏： Excel 文章标签： excel 数学建模

于 2023-06-03 18:54:31 首次发布

automoblie0

本文链接：https://blog.csdn.net/automoblie0/article/details/131024374

版权

Excel 专栏收录该内容

21 篇文章 7 订阅

订阅专栏

该文展示了如何在VBScript中处理不同类型的数组，包括固定长度的一维数组、二维数组以及动态长度数组。通过示例代码，解释了如何初始化、赋值及安全地遍历这些数组，特别强调了使用LBound和UBound函数避免越界风险的重要性。

摘要由CSDN通过智能技术生成

一维数组

' 固定长度一维数组
Sub Array1_Sub()

    ' 定义一维数组
    Dim TestArray(1 To 4) As Integer, Num As Integer
    TestArray(1) = 101
    TestArray(2) = 102
    TestArray(3) = 103
    TestArray(4) = 104
    
    ' 指定长度遍历。缺点:有输入错误越界风险
    For Num = 1 To 4
        MsgBox "(1)Num值:" & Num & " 对应数组索引值:" & TestArray(Num)
        Next Num

    ' 自动使用最大最小长度遍历
    For Num = LBound(TestArray) To UBound(TestArray)
        MsgBox "(2)Num值:" & Num & " 对应数组索引值:" & TestArray(Num)
        Next Num

End Sub

在这里插入图片描述

二维数组

' 固定长度二维数组
Sub Array2_Sub()

    Dim TestArray(1 To 2, 1 To 4) As Integer, Row As Integer, Col As Integer
    TestArray(1, 1) = 11
    TestArray(1, 2) = 12
    TestArray(1, 3) = 13
    TestArray(1, 4) = 14
    TestArray(2, 1) = 21
    TestArray(2, 2) = 22
    TestArray(2, 3) = 23
    TestArray(2, 4) = 24
    
    ' 指定长度遍历。缺点:有输入错误越界风险
    For Row = 1 To 2
        For Col = 1 To 4
            MsgBox "行：" & Row & " 列：" & Col & " 值：" & TestArray(Row, Col)
            Next Col
        Next Row
        
    ' 自动使用最大最小长度遍历
    For Row = LBound(TestArray, 1) To UBound(TestArray, 1)
        For Col = LBound(TestArray, 2) To UBound(TestArray, 2)
            MsgBox "行：" & Row & " 列：" & Col & " 值：" & TestArray(Row, Col)
            Next Col
        Next Row

End Sub

在这里插入图片描述

动态长度数组

' 动态长度数组
Sub ArrayDynamic_Sub()

    ' 定义一维动态数组
    Dim TestArray() As Integer, Num As Integer
    
    ' 设置一维动态数组大小
    ReDim TestArray(1 To 4)
    TestArray(1) = 101
    TestArray(2) = 102
    TestArray(3) = 103
    TestArray(4) = 104
    
    ' 自动使用最大最小长度遍历
    For Num = LBound(TestArray) To UBound(TestArray)
        MsgBox "Num值:" & Num & " 对应数组索引值:" & TestArray(Num)
        Next Num
    
    ' 设置一维动态数组大小（不保留之前的数据）
    'ReDim TestArray(1 To 3)
    
    ' 设置一维动态数组大小（保留之前的数据）
    ReDim Preserve TestArray(1 To 5)
    TestArray(5) = 105
    
    ' 自动使用最大最小长度遍历
    For Num = LBound(TestArray) To UBound(TestArray)
        MsgBox "New Num值:" & Num & " 对应数组索引值:" & TestArray(Num)
        Next Num

End Sub