作者b8888 (b8888)
看板Visual_Basic
标题Re: [VBS ] 画星星
时间Tue Apr 8 10:16:22 2008
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
1F：推 hsp6102:谢谢~~ 04/08 11:29