Imports System
Public Class Program
Public Shared Sub Main()
Dim arr() As Integer = New Integer() {4, 6, 3, 9, 1, 2}
Dim n As Integer = 0
For i As Integer = 0 To arr.Length - 1
n = n + arr(i) * Convert.ToInt32(Math.Pow(10, arr.Length - i - 1))
Next
Console.WriteLine("n = {0}", n)
End Sub
End Class
' run:
'
' n = 463912
'