Imports System
Public Class Program
Public Shared Sub move_negative_to_beginning(ByVal arr As Integer(), ByVal size As Integer)
Dim beginning_index 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(beginning_index)
arr(beginning_index) = tmp
beginning_index += 1
End If
Next
End Sub
Public Shared Sub Main(ByVal args As String())
Dim arr As Integer() = New Integer() {-1, 8, -6, 21, -3, 4, -2, 7, 15, -30, -40, 9}
Dim size As Integer = arr.Length
move_negative_to_beginning(arr, size)
For i As Integer = 0 To size - 1
Console.Write(arr(i) & " ")
Next
End Sub
End Class
' run:
'
' -1 -6 -3 -2 -30 -40 21 7 15 8 4 9
'
