用FOR循环打印图案

Sub Form1_Click()    Dim i As Integer, m As Integer, n As Integer    Dim Strm As String, Strn As String    For i = 1 To 6        Strm = ""        For m = 1 To i            Strn = ""            For n = 1 To m                Strn = Strn & n            Next            If i Mod 2 = 1 Then                Strm = Strm & " " & Strn & " "            Else                Strm = Strm & (-1) * Strn & " "            End If        Next        Print Strm    NextEnd Sub 再问： strn 是什么意思？ 再答： strm和strn仅仅是两个字符串型变量而已！