<p>Sub 作业6()<br/>Dim arr1(1 To 2, 1 To 3) As String, i As Integer<br/>Dim arr2, j As Integer, x As Integer</p><p>arr2 = Split(Range("a50"), ",")</p><p>For i = 1 To 3<br/> arr1(1, i) = arr2(i - 1)<br/>Next</p><p>For x = 1 To 3<br/> arr1(2, x) = arr2(x + 2)<br/>Next<br/> Stop<br/>End Sub</p>