1. 有如下VB程序段：

Dim a(1 To 6) As Long, i As Integer, x As Long, y As Long

x = 654321

For i = 1 To 6

    a(i) = x Mod 10

    x = x \ 10

    y = y + a(i) * 10 ^ (6 － i + 1)

Next i

执行该程序段后，变量y的值为(  )