Re: [VBS ] 畫星星

[b8888 (b8888)]

Module Module1

    Sub Main()
        Dim i, j As Integer
        j = 0
        For i = 1 To 5
        Next
        Console.WriteLine("*")
        For i = 1 To 5
            For j = 0 To i
                    ^^^^^^^
                Console.Write("*")
                ^^^^^^^^^^^^^
            Next
            Console.WriteLine()
        Next
        Console.Read()

    End Sub

End Module

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 163.29.241.8
推 hsp6102:謝謝~~