编写一个VBA程序，定义一个字符串数组，并将数组中各元素的值依次设置为“小白兔”、“小乌龟”、“小老虎”、“多啦A梦”、“米老鼠”，并将赋值后的数组输出到立即窗口。

以下是一个简单的VBA程序，可以实现你的需求：

Sub StringArray()

    Dim myArray(4) As String
    myArray(0) = "小白兔"
    myArray(1) = "小乌龟"
    myArray(2) = "小老虎"
    myArray(3) = "多啦A梦"
    myArray(4) = "米老鼠"
    
    For i = 0 To UBound(myArray)
        Debug.Print myArray(i)
    Next i
    
End Sub

这个程序中，我们首先定义了一个长度为5的字符串数组`myArray`，并将数组中各元素的值依次设置为“小白兔”、“小乌龟”、“小老虎”、“多啦A梦”、“米老鼠”。然后，我们使用`For`循环遍历数组中的每一个元素，并将其通过`Debug.Print`语句输出到立即窗口中。

相关问题

vba 中怎么定义一个不指定成员个数的字符串数组

在VBA中，可以使用`Dim`语句来定义一个不指定成员个数的字符串数组。例如，以下代码定义了一个名为`myArray`的字符串数组，但没有指定其成员个数：

Dim myArray() As String

这将创建一个空的字符串数组，你可以通过使用`ReDim`语句来动态的改变其大小，例如：

ReDim myArray(5) '将 myArray 数组的大小调整为6

这将把`myArray`数组的大小调整为6，因此它现在包含6个成员。请注意，当您使用`ReDim`语句改变数组大小时，它将删除数组中的所有元素，因此在使用此方法时要小心。

VBA里实现从一个固定的数组中，依次对一个变量赋值

你可以使用 For 循环来实现从一个固定的数组中，依次对一个变量赋值，以下是示例代码：

Dim myArray(3) As Integer ' 定义一个包含 3 个整数的数组
Dim i As Integer ' 定义一个整数变量

myArray(0) = 10 ' 给数组赋值
myArray(1) = 20
myArray(2) = 30

For i = 0 To UBound(myArray) ' 遍历数组
    MsgBox "第 " & i + 1 & " 个值为：" & myArray(i) ' 输出每个数组元素的值
Next i

在上面的代码中，我们定义了一个包含 3 个整数的数组 `myArray`，并给其赋值。然后通过 `For` 循环遍历数组，将每个数组元素的值赋给变量 `i`，并输出每个数组元素的值。