vb6.0文本框显示数组排列问题？？

Question

01 02 03 04 05 
06 07 08 09 10 
11 12 13 14 15我就是想好像上面那样排列数据，显示在文本框中！！

Answer 1

Private Sub Form_Load()
Dim a()
Dim i        As Integer
Dim S, S1, S2   As String
   a = Array("01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12", "13", "14", "15")
   For i = 0 To UBound(a)
        Select Case i
            Case i = 0 To 4
                S = S & " " & a(i)
            Case i = 5 To 9
                S1 = S1 & " " & a(i)
            Case i = 10 To 14
                S2 = S2 & " " & a(i)
        End Select
   Next i
   Text1.Text = S & vbCrLf & S1 & vbCrLf & S2
End Sub
再设置TEXT1下MultiLine的属性为True.