Question

How to splits an array of integers into two arrays with VB.NET

Answer 1

Module Module1

    Sub Main()

        Dim arr(9) As Integer

        Randomize()
        For i As Integer = 0 To arr.Length - 1
            arr(i) = Int(Rnd() * 100) + 1
        Next
        For Each number In arr
            Console.WriteLine(number)
        Next

        Dim divisor = 2
        Dim remainder As Integer
        Dim boundary = Math.DivRem(arr.GetLength(0), divisor, remainder)

        Dim arr1(boundary - 1 + remainder), arr2(boundary - 1) As Integer
        Array.Copy(arr, 0, arr1, 0, boundary + remainder)
        Array.Copy(arr, boundary + remainder, arr2, 0, arr.Length - boundary)

        Console.WriteLine()
        For Each number In arr1
            Console.WriteLine(number)
        Next
        Console.WriteLine()
        For Each number In arr2
            Console.WriteLine(Number)
        Next

    End Sub

End Module

' run:
' 
' 77
' 72
' 1
' 10
' 60
' 75
' 59
' 65
' 37
' 40

' 77
' 72
' 1
' 10
' 60

' 75
' 59
' 65
' 37
' 40

 

70+ SQL courses for beginners and professionals

Answer 2

Module Module1

    Sub Main()

        Dim arr(9) As Integer

        Randomize()
        For i As Integer = 0 To arr.Length - 1
            arr(i) = Int(Rnd() * 100) + 1
        Next
        For Each number In arr
            Console.WriteLine(number)
        Next

        Dim boundary As Integer = arr.Length / 2 - 1

        Dim arr1(boundary), arr2(boundary) As Integer
        Array.Copy(arr, 0, arr1, 0, boundary + 1)
        Array.Copy(arr, boundary + 1, arr2, 0, boundary + 1)

        Console.WriteLine()
        For Each number In arr1
            Console.WriteLine(number)
        Next
        Console.WriteLine()
        For Each number In arr2
            Console.WriteLine(number)
        Next

    End Sub

End Module

' run:
' 
' 6
' 73
' 25
' 55
' 80
' 54
' 99
' 11
' 2
' 35

' 6
' 73
' 25
' 55
' 80

' 54
' 99
' 11
' 2
' 35

 

70+ SQL courses for beginners and professionals