VBA Initialise Initialize String Number Array (not variant) - BASIC

在VBA编程中，要初始化一个字符串数组、数值数组（非变体）是非常常见的需求。在本文中，我们将介绍如何初始化这些类型的数组。

初始化字符串数组

要初始化一个字符串数组，我们需要定义数组的大小，并将每一个元素设为一个空字符串 ("")：

Dim myArray(2) As String
myArray(0) = ""
myArray(1) = ""
myArray(2) = ""

这样定义后，数组 myArray 就有3个元素，每个元素的值为一个空字符串。

如果数组很大，手动定义每一个元素就显得非常麻烦。可以使用一个循环结构，将每个元素初始化为一个空字符串：

Dim myArray(9) As String
Dim i As Integer
 
For i = 0 To 9
    myArray(i) = ""
Next i

这个代码段将 myArray 限定为10个元素，并使用 For 循环将每个元素的值设为一个空字符串。

初始化数值数组

要初始化一个数值数组，我们需要定义数组的大小，并将每个元素设为默认值0：

Dim myArray(2) As Integer
myArray(0) = 0 
myArray(1) = 0 
myArray(2) = 0 

这样定义后，数组 myArray 就有3个元素，每个元素的值为0。

同样的，我们可以使用一个循环结构，将每个元素初始化为0：

Dim myArray(9) As Integer
Dim i As Integer
 
For i = 0 To 9
    myArray(i) = 0
Next i

这个代码段将 myArray 限定为10个元素，并使用 For 循环将每个元素的值设为0。

初始化混合数组

要初始化一个混合数组，即包含字符串和数值的数组，可以先定义数组为变体类型（Variant），然后像下面这样初始化：

Dim myArray(3) As Variant
myArray(0) = "Hello"
myArray(1) = "World"
myArray(2) = 42
myArray(3) = 0 

这个代码段将 myArray 限定为4个元素，前两个元素是字符串，第三个是数值，第四个是默认值0。

结论

在VBA编程中，初始化数组对于实现一些特定的任务非常关键。通过本文的介绍，你应该学会了如何初始化字符串数组、数值数组和混合数组。如果你对VBA编程还不是很熟悉，不妨多写一些代码来巩固。