（加试题）小明编写了一个寻找非常幸运数的程序。程序运行时,单击“求解”按钮,则在列表框中输出所有的六位数中的非常幸运数,在标签Label2中输出非常幸运数的个数。程序运行效果如图所示。
所谓的非常幸运数是指符合下列条件的整数:
(1)该数的偶数位数字之和等于奇数位数字之和。
(2)该数的前一半的各位数字之和正好等于后一半的各位数字之和。
代码如下：
Private Sub Command1_Click()
　Dim a(1 To 6) As Integer, sum(1 To 4) As Integer
　Dim x As Long, i As Long, count As Long, k As Long
　For i=100000 To 999999
　　x=i
　　k=1
　　Do While x > 0
　　　a(k)=  ①   
　　　x=x\10
k=k+1
　　Loop
　　sum(1)=a(1) +a(2) +a(3)
　　sum(2) =a(4)+a(5)+a(6)
　　   ②   
　　sum（4）=a（2）+a（4）+a（6）　　　　
　　If sum(1)=sum(2) And sum(3)=sum(4)Then
　　　List1.AddItem Str(i)
  ③ 
　　End If
　Next i
　Label2.Caption="共有个数:" +　str（count）　　
End Sub
实现上述功能的VB程序如下,在程序划线处填入合适的代码。
①_____________________________________
②______________________________________
③______________________________________