Module Module1
Sub Main()
Dim n As Integer = cube(2)
Console.WriteLine(n)
Console.WriteLine(cube(3))
n = cube(5)
Console.WriteLine(n)
End Sub
Function cube(n As Integer) As Integer
Return Math.Pow(n, 3)
End Function
End Module
' run:
'
' 8
' 27
' 125