VB 6.0无法创建数组

Question

我无法在VB 6.0中创建数组，而且我会疯狂地试图找出它。首先，VB不是我的母语，我是一名PHP程序员，所以数组对我来说不是一个新概念......希望有人可以帮忙解决这个问题。

这是我的功能：

Function get_plant() As String

Dim arrPlant(1 To 10) As String
arrPlant(1) = "PL1"
arrPlant(2) = "PL2"
arrPlant(3) = "PL3"
arrPlant(4) = "PL4"
arrPlant(5) = "PL5"
arrPlant(6) = "PL6"
arrPlant(7) = "PL7"
arrPlant(8) = "PL8"
arrPlant(9) = "PL9"
arrPlant(10) = "PL0"

get_plant = arrPlant

End Function

然后我尝试用它调用它（以及其他大约10种变体......）：

Dim plant_code() As String
plant_code = get_plant()
MsgBox plant_code(1)

当我尝试使用数组时，我得到了这个： Question mark in the array index

我在这里错过了什么？

Answer 1

您给出的函数的返回类型是string而不是string()，并且您正在尝试返回字符串数组。试着给这个

Function get_plant() As String()