Question

我正在做一个项目，我需要使用VB6。我正在努力完成一些基本任务，部分原因是（我认为）缺乏文档，部分原因是我通常使用基于C语言的语言。

当我在C＃中定义一个数组时，它通常如下：

string[] s = {"a", "b", "c", "d" };

我想在VB6中这样做。

但在VB6中，我一直在这样做：

Dim s(0 To 3) As String
s(0) = "a"
s(1) = "b"
s(2) = "c"
s(3) = "d"

在VB6中定义数组的方法是否比上面说明的示例更有效？一种类似于C＃方法的方式？

Answer 1

Dim s
s = Array("a", "b", "c", "d")

Answer 2

这是另一种可能性：

Dim S() As String

S = Split("a|b|c|d", "|")

Answer 3

如果你想要一个 String 数组而不是 Variant 数组Array()会产生;

Function ArrayString(ParamArray tokens()) As String()
    ReDim arr(UBound(tokens)) As String
    Dim i As Long
    For i = 0 To UBound(tokens)
        arr(i) = tokens(i)
    Next
    ArrayString = arr
End Function

...

Dim a() As String
a = ArrayString("foo", "bar", ..., "qux")

VB6 - 定义字符串数组

3 个答案: