再问一个VB题……OTL（已解决^_^）

采用Form上直接输出的方式，打印该图形

Private Sub Form_Load()

    Dim i, j  As Integer
    Dim str As String
    Dim line As String
   
    Form1.AutoRedraw = True '自动刷新<-True，这样打印到Form的时候就会显示，否则不会显示
    Form1.CurrentX = 10    'X从10处开始输出
    Form1.CurrentY = 10    'Y从10处开始输出
   
    For i = 1 To 6          '纵向6次循环
        str = ""
        line = ""
        For j = 1 To i      '横向根据纵向次数循环
            str = str & CStr(j) '组成1 12 123 ...类似的字符串
           
            '偶数行输出 -
            If i Mod 2 = 0 Then
                line = line + " - " + str
            Else
                line = line + "  " + str
            End If
        Next j
        Form1.Print line    '打印该行
    Next i

End Sub