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

Question

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

Answer 1

刚写的，存放到一个二维数组里
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

Answer 2

关注中