Mega Code Archive
Function procedure to square a number
<![CDATA[
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
]]>