Imports System
Public Class Program
Public Shared Function NaturalNumber(ByVal size As Integer) As Integer()
Dim arr As Integer() = New Integer(size - 1) {}
For i As Integer = 0 To arr.Length - 1
arr(i) = (i + 1) * 3
Next
Return arr
End Function
Public Shared Sub Display(ByVal arr As Integer())
For Each n As Integer In arr
Console.Write(n & " ")
Next
End Sub
Public Shared Sub Main()
Dim arr As Integer() = NaturalNumber(5)
Display(arr)
End Sub
End Class
' run:
'
' 3 6 9 12 15
'