Imports System
Public Class ArrayPad
Public Shared Function arrayPad(ByVal arr As Integer(), ByVal size As Integer, ByVal value As Integer) As Integer()
Dim paddedArray As Integer() = New Integer(size - 1) {}
Dim originalSize As Integer = arr.Length
if (size < originalSize) then
Return arr
End If
For i As Integer = 0 To originalSize - 1
paddedArray(i) = arr(i)
Next
For i As Integer = originalSize To size - 1
paddedArray(i) = value
Next
Return paddedArray
End Function
Public Shared Sub Main(ByVal args As String())
Dim arr As Integer() = New Integer() {1, 2, 3}
Dim size As Integer = 5
Dim value As Integer = 0
Dim paddedArray As Integer() = arrayPad(arr, size, value)
For Each num As Integer In paddedArray
Console.Write(num & " ")
Next
End Sub
End Class
' run:
'
' 1 2 3 0 0
'