用vb编程统计数据 数据是存在文本框里的，每一排3个数，要求把数据存在一个数组里

01,05,06
04,06,10
07,08,01
01,11,09
.
.
N.

答案：刚写的，存放到一个二维数组里
Private Sub Form_Load() '准备一些测试数据
    Text1.Text = "01,05,06"
    Text1.Text = Text1.Text & vbCrLf & "04,06,10"
    Text1.Text = Text1.Text & vbCrLf & "07,08,01"
    Text1.Text = Text1.Text & vbCrLf & "01,11,09"
End Sub
Private Sub Command1_Click()
    Dim a() As String
    a = Split(Text1, vbCrLf)
    Dim b() As String
    Dim c() As String
    ReDim c(2, UBound(a)) As String
    For i = 0 To UBound(a)
        b = Split(a(i), ",")
        c(0, i) = b(0)
        c(1, i) = b(1)
        c(2, i) = b(2)
        Erase b
    Next
    '以上把数据存放到数组C内，下面是把数组C的内容显示出来，以便于观察对比
    For i = 0 To UBound(a)
        Print c(0, i) & "," & c(1, i) & "," & c(2, i)
    Next i
End Sub

上一个：vb溢出问题
下一个：Excel中VBA的Name和Shell相关问题（高手进，有加分）