How to pad an array to a specified length with a given value in VB.NET

1 Answer

0 votes
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 
'

 



answered Feb 4 by avibootz
edited Feb 4 by avibootz
...