Imports System
Public Class Program
Public Shared Function ConvertArrayOfDigitsToIntNumber(ByVal arr As Integer()) As Integer
Dim n As Integer = 0
For Each digit As Integer In arr
n = n * 10 + digit
Next
Return n
End Function
Public Shared Sub ConvertIntNumberToArrayOfDigits(ByVal digits As Integer(), ByVal n As Integer)
Dim i As Integer = digits.Length - 1
While n > 0
digits(i) = n Mod 10
n = n \ 10
i -= 1
End While
End Sub
Public Shared Sub Main(ByVal args As String())
Dim arr As Integer() = {9, 4, 6, 9}
Dim n As Integer = ConvertArrayOfDigitsToIntNumber(arr)
n += 1
ConvertIntNumberToArrayOfDigits(arr, n)
Console.WriteLine("n = " & n)
Console.WriteLine(String.Join(", ", arr))
End Sub
End Class
' run:
'
' n = 9470
' 9, 4, 7, 0
'
