Above pattern print program is given below -
Dim row, col, colspace, noofrow As Integer
noofrow = 20
For row = 1 To noofrow Step 1
For colspace = noofrow - row To 1 Step -1
Console.Write(" ")
Next
For col = 1 To row Step 1
Console.Write("* ")
Next
Console.Write(vbNewLine)
Next
0 comments:
Post a Comment