Module Tester Sub Main() Dim i As Integer Console.WriteLine("Number" & vbTab & "Square" & vbCrLf) For i = 1 To 10 Console.WriteLine(i & vbTab & Square(i)) Next End Sub Function Square(ByVal y As Integer) As Integer Return y ^ 2 End Function End Module
Number Square 1 1 2 4 3 9 4 16 5 25 6 36 7 49 8 64 9 81 10 100