n=Len(s)          's是待判断的字符串

k=0:j=n

For i=1 to n/2

Next i

If  k=0  Then Label1.Caption="对称"  Else  Label1.Caption="不对称"

方框中的代码由以下三部分组成：

①j=j-1

②If c1 <> c2 Then k = k+1

③c1=Mid(s,i,1) : c2=Mid(s,j,1)

代码顺序正确的选项是（  ）

实现上述功能的VB程序如下，请在划线处填入合适的代码。

Private Sub Command1_Click（）

  Dim i As Integer, d As Integer, r As integer

  Dim rs As string, ans1 As Integer, ans2 As Integer

  For i=81 To 342

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

    rs=“”

    Do While d ＜>0

      r = d Mod 9

      rs= str(r)+rs

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

    Loop

    ans1= Val(rs)

  ‘求出相应的七进制数，存储在变量ans2中，代码略

    If ans1 Mod 10=ans2\ 100 And ans1\ 100=ans2 Mod 10 And ③{#blank#}3{#/blank#} Then

      Text1. Text=④{#blank#}4{#/blank#}

      Text2 Text= Str(ans1)

      Text3. Text= Str(ans2)

    End If

  Next i

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