Question

How to convert an int into an array of ints in VB.NET

Answer 1

Module Module1

    Sub Main()

        Dim n As Integer = 78910
        Dim arr(4) As Integer

        For i As Integer = arr.Length - 1 To 0 Step -1
            arr(i) = n Mod 10
            n = Int(n / 10)
        Next

        For i As Integer = 0 To arr.Length - 1
            Console.WriteLine("arr({0}) = {1}", i, arr(i))
        Next

    End Sub

End Module

'run:
' 
' arr(0) = 7
' arr(1) = 8
' arr(2) = 9
' arr(3) = 1
' arr(4) = 0

 

70+ SQL courses for beginners and professionals

Answer 2

Module Module1

    Sub Main()

        Dim n As Integer = 78910

        Dim arr() As Integer = num_to_int_stack(n)

        For i As Integer = 0 To arr.Length - 1
            Console.WriteLine("arr({0}) = {1}", i, arr(i))
        Next

    End Sub

    Function num_to_int_stack(n As Integer) As Integer()

        Dim stack As Stack(Of Integer) = New Stack(Of Integer)

        Do While (n > 0)
            stack.Push(n Mod 10)
            n = Int(n / 10)
        Loop

        Return stack.ToArray()

    End Function

End Module

'run:
' 
' arr(0) = 7
' arr(1) = 8
' arr(2) = 9
' arr(3) = 1
' arr(4) = 0

 

70+ SQL courses for beginners and professionals