Imports System
Public Module Module1
Public Sub Main()
Console.WriteLine("Hello World")
dim Stars (9,9) as string
Stars(0,0) =" *"
Stars(0,1) =" "
Stars(0,2) =" "
Stars(0,3) =" "
Stars(0,4) =" "
Stars(0,5) =" "
Stars(0,6) =" "
Stars(0,7) =" "
Stars(0,8) =" "
Stars(0,9) =" "
Stars(1,0) =" *"
Stars(1,1) =" *"
Stars(1,2) =" "
Stars(1,3) =" "
Stars(1,4) =" "
Stars(1,5) =" "
Stars(1,6) =" "
Stars(1,7) =" "
Stars(1,8) =" "
Stars(1,9) =" "
Stars(2,0) =" *"
Stars(2,1) =" *"
Stars(2,2) =" *"
Stars(2,3) =" "
Stars(2,4) =" "
Stars(2,5) =" "
Stars(2,6) =" "
Stars(2,7) =" "
Stars(2,8) =" "
Stars(2,9) =" "
Stars(3,0) =" *"
Stars(3,1) =" *"
Stars(3,2) =" *"
Stars(3,3) =" *"
Stars(3,4) =" "
Stars(3,5) =" "
Stars(3,6) =" "
Stars(3,7) =" "
Stars(3,8) =" "
Stars(3,9) =" "
Stars(4,0) =" *"
Stars(4,1) =" *"
Stars(4,2) =" *"
Stars(4,3) =" *"
Stars(4,4) =" *"
Stars(4,5) =" "
Stars(4,6) =" "
Stars(4,7) =" "
Stars(4,8) =" "
Stars(4,9) =" "
Stars(5,0) =" *"
Stars(5,1) =" *"
Stars(5,2) =" *"
Stars(5,3) =" *"
Stars(5,4) =" *"
Stars(5,5) =" *"
Stars(5,6) =" "
Stars(5,7) =" "
Stars(5,8) =" "
Stars(5,9) =" "
Stars(6,0) =" *"
Stars(6,1) =" *"
Stars(6,2) =" *"
Stars(6,3) =" *"
Stars(6,4) =" *"
Stars(6,5) =" *"
Stars(6,6) =" *"
Stars(6,7) =" "
Stars(6,8) =" "
Stars(6,9) =" "
Stars(7,0) =" *"
Stars(7,1) =" *"
Stars(7,2) =" *"
Stars(7,3) =" *"
Stars(7,4) =" *"
Stars(7,5) =" *"
Stars(7,6) =" *"
Stars(7,7) =" *"
Stars(7,8) =" "
Stars(7,9) =" "
Stars(8,0) =" *"
Stars(8,1) =" *"
Stars(8,2) =" *"
Stars(8,3) =" *"
Stars(8,4) =" *"
Stars(8,5) =" *"
Stars(8,6) =" *"
Stars(8,7) =" *"
Stars(8,8) =" *"
Stars(8,9) =" "
Stars(9,0) =" *"
Stars(9,1) =" *"
Stars(9,2) =" *"
Stars(9,3) =" *"
Stars(9,4) =" *"
Stars(9,5) =" *"
Stars(9,6) =" *"
Stars(9,7) =" *"
Stars(9,8) =" *"
Stars(9,9) =" *"
for i = 0 to 9
for x = 0 to 9
console.Write(Stars(i,x) .PadLeft(1))
next x
console.WriteLine()
next i
End Sub
End Module
