Imports System
Public Class MainClass
Shared Sub Main(ByVal args As String())
Dim i As Integer ' counter
Console.WriteLine("Number" & vbTab & "Square" & vbCrLf)
' square numbers from 1 to 10
For i = 1 To 10
Console.WriteLine(i & vbTab & Square(i))
Next
End Sub
Shared Function Square(ByVal y As Integer) As Integer
Return y ^ 2
End Function
End Class