题目

小明编写了一个寻找非常幸运数的程序。程序运行时，单击“求解”按钮，则在列表框中输出所有的六位数中的非常幸运数，在标签Label2中输出非常幸运数的个数。 所谓的非常幸运数是指符合下列条件的整数： ⑴该数的偶数位数字之和等于奇数位数字之和。 ⑵该数的前一半的各位数字之和正好等于后一半的各位数字之和。 实现上述功能的VB程序如下，在程序划线处填入合适的代码。 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 答案：【1】x Mod 10【2】sum(3)=a（1） +a(3) +a(5)【3】count = count+1

查看本题答案和解析