Question

How to convert an integer to integer array in VB.NET

Answer 1

Imports System
Imports System.Collections.Generic

Public Class Program
    Public Shared Function intToArray(ByVal num As Integer) As Integer()
        Dim numbers As List(Of Integer) = New List(Of Integer)()

        Do
            numbers.Insert(0, num Mod 10)
			num = num \ 10 ' \ not /
        Loop While num > 0

        Return numbers.ToArray()
    End Function

    Public Shared Sub Main()
        Dim n As Integer = 792591
			
        Dim arr As Integer() = intToArray(n)
			
        Console.WriteLine(String.Join(", ", arr))
    End Sub
End Class
	
	

' run:
'
' 7, 9, 2, 5, 9, 1
'

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System

Public Class Program
    Public Shared Function intToArray(ByVal num As Integer) As Integer()
        Dim arr As Integer() = New Integer(num.ToString().Length - 1) {}

		For i As Integer = arr.Length - 1 To 0 step -1
            arr(i) = num Mod 10
			num = num \ 10 ' \ not /
        Next

        Return arr
    End Function

    Public Shared Sub Main()
        Dim n As Integer = 792591
	
        Dim arr As Integer() = intToArray(n)
	
        Console.WriteLine(String.Join(", ", arr))
    End Sub
End Class
	

	

' run:
'
' 7, 9, 2, 5, 9, 1
'

 

70+ SQL courses for beginners and professionals

Answer 3

Imports System
Imports System.Linq

Public Class Program
	Public Shared Sub Main()
        Dim n As Integer = 792591
		
        Dim arr As Integer() = n.ToString().[Select](Function(x) Convert.ToInt32(x) - 48).ToArray()
			
        Console.WriteLine(String.Join(", ", arr))
    End Sub
End Class

	

	

' run:
'
' 7, 9, 2, 5, 9, 1
'

 

70+ SQL courses for beginners and professionals