对数据格式进行设置，可以使用space对数据的左边设置，让数据排列可以根据需要进行设置。

代码如下:

    Dim i As Integer
    Me.Text2 = ""
    Me.Text1 = ""
    For i = 9 To 0 Step -1
        Me.Text1 = Me.Text1 & Space(9 - i) & String(2 * i + 1, CStr(i)) & vbCrLf
    Next i
    
    For i = 0 To 9 Step 1
        Me.Text2 = Me.Text2 & Space(9 - i) & String(2 * i + 1, CStr(i)) & vbCrLf
    Next i

示   例:

点击下载此附件

图   示: