[VBS ] 畫星星

[hsp6102 (笨貓)]

 若要畫這樣的圖

 *
 **
 ***
 ****
 *****
 ******
 .
 .
 .
 .
 .

 要如何去畫呢?

 我畫出來都是:

 *
 *
 *
 *
 *
 *
 .
 .

 這樣的


========

 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 = 1 To 5

                Console.WriteLine("*")
            Next
            Console.WriteLine()
        Next
        Console.Read()

    End Sub

End Module



不知道是哪裡該修正..

(我剛學 VB  老師丟給我們的作業)


--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 124.8.197.246