①共八位字符，前两位为字母“zj”，后六位是数字，并以66开头（即密码格式为zj66****）；

②最后两位数字相同；

③后六位数能被16和46同时整除。

单击“找回密码”按钮（Command1）后，可能的密码显示在列表框List1中。

Private Sub Command1Click()

Dim s As Long , a As Integer, b As Integer, c As Integer, i As Integer

For i = 0 To 9999

  s = 660000 + i

  If        ①      And s Mod 46 = 0 Then 

'（选填字母，从下列A、B 、C、D四个选项中选取一项）

  a = s Mod 10         

  b = (s Mod 100) \ 10

     If        ②       Then  '（选填字母，从下列A、B 、C、D四个选项中选取一项）

     List1.AddItem ("zj" + Str(s))

     c =       ③                '（填程序代码）

     End If

  End If

Next i

Label1.Caption = "共有" + Str(c) + "个"

End Sub

解密规则：将整数中各个位中的每一位值乘以5，然后除以8所得余数即为该位的值，然后将所得数的首末位进行交换。如数字9357，解密后的值为3715。

⑴将第一个整数各位上的数字按照从低位到高位的顺序依次存入数组a(1)、a(2)、…、a(La)中，将另一个整数各位上的数字按照从低位到高位的顺序依次存入数组b(1)、b(2)、…、b(Lb)中。其中，La表示第一个整数的位数，Lb表示第二个整数的位数；

⑵按照从低位到高位的顺序，将两个整数各位数值进行逐位乘法计算(第一轮先让b(1)依次乘a(1)、a(2)…a(La)，第二轮再让b(2)依次乘a(1)、a(2)、…、a(La)，依次进行)，每位的乘法结果也按照低位到高位的顺序依次存入数组ans(1)、ans(2)、ans(3)中；

⑶对数组ans中的计算结果进行从低位到高位的进位处理；

⑷统计数组ans中实际计算结果的有效数值位数，并将位数值存入变量length；

⑸按照高位到低位的顺序输出数组ans中的计算结果。

小明按照上述方法设计了一个两数进行高精度乘法计算的VB程序，功能如下:在文本框Text1和Text2中依次输入两个整数，单击“计算”按钮Command1，程序进行高精度乘法计算，并在标签Label4中输出计算结果。

实现上述功能的VB程序如下:

程序界面如图所示，在文本框Text_1中输入原始字符串，在文本框Text_2中输入需要删除的字符，单击“删除此字符”按钮(Command1)后，在文本框Text_3中输出处理后的结果。

解决此问题的算法流程图如图所示，相应的Visual Basic程序如下：

Dim p As String,k As String

Private Sub Command1_Click()

Dim s As Integer,result As String,flag As Boolean

result=“”

p=Text_1.Text

k=Text_2.Text

For s=1 To Len(p)

  flag=f(s)

  If Not flag Then

   result=result+①   

  End If

Next s

②   

End Sub

Function f(s As Integer)As Boolean

  If Mid(p,s,1)=k Then f=True

End Function