关于对VB数组赋值的问题。

Question

各位大侠，你们好。
现在我定义一个字符串，S=”1,2,3,6,4,8”，定义一个数组dim a(5) as integer。 现在我想把它赋给数组a，用循环语句怎幺做？  我是VB菜鸟。谢谢！

Answer 1

Array 函数返回一个包含数组的 Variant。语法Array(arglist)所需的 arglist 参数是一个用逗号隔开的值表，这些值用于给 Variant 所包含的数组的各元素赋值。如果不提供参数，则创建一个长度为 0 的数组。说明用来表示数组元素的符号由变量名、圆括号以及括号中的所需元素的索引号组成。在下面的示例中，第一条语句创建一个 Variant 的变量 A。第二条语句将一个数组赋给变量 A。最后一条语句将该数组的第二个元素的值赋给另一个变量。Dim A As Variant
A = Array(10,20,30)
B = A(2)使用 Array 函数创建的数组的下界总是 0。这和其它类型的数组不同，它不受 Option Base 语句指定的下界的影响。注意   没有作为数组声明的 Variant 也可以表示数组。除了长度固定的字符串以及用户定义类型之外，Variant 变量可以表示任何类型的数组。尽管一个包含数组的 Variant 和一个元素为 Variant 类型的数组在概念上有所不同，但对数组元素的访问方式是相同的。=====================该示例使用 Array 函数来返回一个包含 Variant 的数组。Dim MyWeek, MyDay
MyWeek = Array("Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun")
'返回值假设下界的设置为 1（使用 Option Base
' 语句）。
MyDay = MyWeek(2) 'MyDay 的值为 "Tue"。
MyDay = MyWeek(4) 'MyDay 的值为 "Thu"。

Answer 2

也可以用Right函数。
Private Sub Command2_Click()
    Dim S As String
    Dim a() As Integer
    Dim i As Integer
    Dim j As Integer
    S = "1,2,3,6,4,8"
    j = 1
    For i = 0 To 5
        ReDim a(i)
        a(i) = Right(Left(S, j), 1)
        Debug.Print "a(" & i & ")=" & a(i)
        j = j + 2
    Next i
End Sub
结果：
a(0)=1
a(1)=2
a(2)=3
a(3)=6
a(4)=4
a(5)=8

Answer 3

使用split函数即可dim strS as string
strS="1,2,3,6,4,8"dim a() as integer
a=split(strS,",")

Answer 4

在函数中有一个Split函数！
可以这样做！
Private Sub Form_click()
  Dim i As Variant
  Dim str As String
  Dim j As Integer
  str = "1,2,3,4,5"
  i = Split(str, ",")
  For j = 0 To 4
      Print i(j)
  Next j
End Sub
把以上代码粘到窗体中就行了