Question

How to move all zeroes to end of array in VB.NET

Answer 1

Imports System
 
Public Class Program
    Public Shared Sub move_zeroes_to_end(ByVal arr As Integer())
        Dim size As Integer = arr.Length
        Dim j As Integer = 0
 
        For i As Integer = 0 To size - 1
            If arr(i) > 0 Then
                Dim tmp As Integer = arr(i)
                arr(i) = arr(j)
                arr(j) = tmp
                j += 1
            End If
        Next
    End Sub
 
    Public Shared Sub Main()
        Dim arr As Integer() = {0, 8, 0, 0, 0, 7, 15, 0, 0, 4, 6, 9}
     
        move_zeroes_to_end(arr)
 
        For i As Integer = 0 To arr.Length - 1
            Console.Write(arr(i) & " ")
        Next
    End Sub
End Class
 
 
 
 
' run:
'
' 8 7 15 4 6 9 0 0 0 0 0 0
'

 

70+ SQL courses for beginners and professionals