s=Text1.Text

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

k=0:j=n

For i=1 to n/2

c1=Mid(s,i,1)

 c2=Mid(s,j,1)

If c1 <> c2 Then k = k+1: Exit For

j={#blank#}1{#/blank#}

Next i

If  {#blank#}2{#/blank#}  Then Label1.Caption="对称"  Else  Label1.Caption="不对称"

图1

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

图2

Private Sub Command1_Click()

    Dim i As Integer, n As Integer

    Dim s As Integer, t As Integer, k As Integer

    s = 0

    For i = 1 To 1000

        n = i

        t = 0

        k = 0

        Do While n > 0

            If n Mod 2 = 1 Then t = t + 1 Else k = k + 1

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

        Loop

        If {#blank#}2{#/blank#}Then s = s + 1

    Next i

    Text1.Text = Str(s)

End Sub

①密码是六位数字，前面两位为59；②最后两位数字相同；③能被12和38整除。

程序界面如图1所示，单击 “帮助找回密码”按钮（Command1）后，可能的密码显示在列表框List1中。