split问题

Question

Dim a As String
a = "1/4,4/5"
Dim b(1) As String
Dim c(1) As Integer
b = Split(a, ",")
MsgBox (b(0))
MsgBox (b(1))
出现下面错误：
 不能给b付值

Answer 1

改成
Dim b() As String还有，在vb6中，如果调用过程不返回结果，要么不用括号，要么前面加call
你这样写虽然结果正确，但是不规范。在某些时候会造成编译失败
所以改成
MsgBox b(0) 比较好

Answer 2

不能使用定长数组来获取split的返回值。
应该：dim b() as string

Answer 3

用动态数组定义比较好，要获得数组中元素的个数用UBound(b)即可
遍历可用:
for intCount=0 to UBound(b)
  msgbox b(intCount)
next