作业帮 > 综合 > 作业

用FOR循环打印图案

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/06/16 09:57:44
用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
    Next
End Sub
再问: strn 是什么意思?
再答: strm和strn仅仅是两个字符串型变量而已!