(加试题)小明编写了一个寻找非常幸运数的程序。程序运行时,单击“求解”按钮,则在列表框中输出所有的六位数中的非常幸运数,在标签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程序如下,在程序划线处填入合适的代码。
①_____________________________________
②______________________________________
③______________________________________