Private Sub Command1_Click()

Dim getStr As String

Dim a As String

Dim i As Integer，s As Integer

Dim q As Integer，l As Integer

s=0：q=0：l=0

getStr=Text1.Text

Text2.Text = Str（s）

Text3.Text = Str（q）

Text4.Text = Str（l）

End Sub

图1

徐明设计了一个VB程序用于寻找这个以211开头、可被2012整除的6位数。其算法流程图如图2所示，程序界面如图3所示，程序的代码编辑窗口如图4所示。

图2

为了实现这一目标，完善下列程序，使之能完成该功能。

Private Sub Command1_Click()

    Const n=20

    Dim i As Integer, j As Integer

    Dim a(1 To n) As integer

    For j=1 To n

        a(j)=0

    Next j

    For i=1 To n

        For j=1 To n

            If j Mod i=0 Then

                {#blank#}1{#/blank#}

            End If

        Next j

    Next i

    For j=1 To n

        If {#blank#}2{#/blank#} Then List1.AddItem Str(j)

    Next j

End Sub

所谓的非常幸运数是指符合下列条件的整数：

⑴该数的偶数位数字之和等于奇数位数字之和。

⑵该数的前一半的各位数字之和正好等于后一半的各位数字之和。

实现上述功能的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)={#blank#}1{#/blank#}

            x=x\10

            k=k+1

        Loop

        sum(1)=a(1) +a(2)+a(3)

        sum(2)=a(4)+a(5)+a(6)

        {#blank#}2{#/blank#}

        sum(4)=a(2)+a(4)+a(6)

        If sum(1)=sum(2) And sum(3)=sum(4)Then

            List1.AddItem Str(i)

            {#blank#}3{#/blank#}

        End If

    Next i

    Label2.Caption="共有个数:" + str(count)

End Sub