在线等,很急人的一个问题请班主们帮忙呀!

Question

1*1=1 1*1=1;1*2=2 2*2=4 2*2=4;1*3=3 2*3=6 3*3=9 3*3=9;1*4=4 2*4=8 3*4=12 4*4=16 4*4=16;1*5=5 2*5=10 3*5=15 4*5=20 5*5=25 5*5=25;1*6=6 2*6=12 3*6=18 4*6=24 5*6=30 6*6=36 6*6=36;1*7=7 2*7=14 3*7=21 4*7=28 5*7=35 6*7=42 7*7=49 7*7=49;1*8=8 2*8=16 3*8=24 4*8=32 5*8=40 6*8=48 7*8=56 8*8=64 8*8=64;1*9=9 2*9=18 3*9=27 4*9=36 5*9=45 6*9=54 7*9=63 8*9=72 9*9=81 9*9=81
我得到了这样的字符串,想用split()方法转成一个数组,以";"相隔的,可是怎么也不行,我是这样写的
    Dim arr(8) As Variant
    Dim i As Integer
    Dim s As String   arr(8) = Split(s, ";")

Answer 1

再提一下，用split函数要求一个不定长数组，  即arr应该是dim arr()

Answer 2

Dim arr() As Variant
    Dim i As Integer
    Dim s As String
    s = Mid(num9, 1, Len(num9) - 1)
    arr() = Split(s, ";")
   Text1.Text = arr(0)
我这样做了,它报我类型不匹配!