Question

vb中如何把14个数变为5个一行

vb中如何把14个数变为5个一行

Answer 1

Private Sub Form_Load()
Show
Dim n As Integer, i As Integer, a As String, b As String
Do
    For i = 1 To 5
        a = Mid(100 + n, 2)
        b = Replace(Left(a, 1), 0, " ") & Right(a, 1)
        Print b; " ";
        n = n + 1
    Next
    Print
Loop Until n >= 14
End Sub