Module Module1
Sub Main()
Dim a As Integer
Dim b As Integer
For a = 1 To 3
For b = 1 To a
Console.Write("*")
Next
Console.Write(vbCrLf)
Next
For a = 3 To 1 Step -1
For b = 1 To a
Console.Write("*")
Next
Console.Write(vbCrLf)
Next
Console.Read()
End Sub
End Module
0 komentar:
Posting Komentar
Silahkan gan komentarnya,,karena komentar anda sangat berarti bagi blog ini...Salam blogger