VB学习笔记_数组赋值测试

最新推荐文章于 2025-02-21 18:53:41 发布

原创最新推荐文章于 2025-02-21 18:53:41 发布 · 401 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#VB

VB笔记专栏收录该内容

1 篇文章

订阅专栏

本文探讨了VBA中动态数组的两种有效赋值方法，并对比分析了错误的写法，揭示了动态数组声明与初始化的常见误区。

动态数组赋值，两种写法都可以正确执行：

'第一种写法：Dim a As Variant
Private Sub cmdCommand1_Click()
    Dim a As Variant
    a = "1,2,3,4,dsd-ad5,6,45,65345"
    Dim b() As String
    b = Split(a, ",")
    Debug.Print b(4)
End Sub

'第二种写法：Dim a 
Private Sub cmdCommand1_Click()
    Dim a
    a = "1,2,3,4,dsd-ad5,6,45,65345"
    Dim b() As String
    b = Split(a, ",")  'b()=Split(a, ",")也可以
    Debug.Print b(4)
End Sub

但以下写法却报错：

Private Sub cmdCommand1_Click()
    Dim a              '即使写成 Dim a as variant 或者 string，也报错
    a = "1,2,3,4,dsd-ad5,6,45,65345"
    Dim b()            '即使写成 Dim b() as variant也报错          
    b = Split(a, ",")  
    Debug.Print b(4)
End Sub

这是什么原因，谁知道请指点一下