①密码是六位数字，前面两位为59；

②最后两位数字相同；

③能被12和38整除。

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

Dim sum As Integer    'sum 用来统计符合条件的自然数个数'

Dim n, max As Integer

List1.Clear

sum = 0

max = {#blank#}1{#/blank#}'指定查找范围的最大自然数，Text1文本框中输入'

n = 0

Do While n <= max

  n = n + 1            '从自然数1开始不断往上寻找'

  If {#blank#}2{#/blank#}Then

  List1.AddItem Str(n) '找到后在List1中显示结果'

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

  End If

Loop

List1.AddItem ("共计" + Str(sum) + "个")

End Sub

⑴找出文章(以“.”结束)中所有用英文表示的数字(均为小写，数字范围1≤n≤20)，单词与数字对应如下：

⑵将这些数字平方后除以100取余，得到两位数如00，04，21，96。

⑶把这些两位数按升序排成一行，组成一个最小的新数，如果新数开头为0，就去除。

⑷步骤(3)找出的最小数即为密码。

小明按照上述方法，设计了一个解密的VB程序，功能如下：单击“解密”按钮Command1，程序依次将文本框Text1中以空格分隔的每个英文单词取出，若单词属于数字单词，则按解密步骤进行处理，最后在文本框Text2中输出解密结果。

程序运行效果如图所示，请回答下列问题：

如13907715200、13907718366是符合条件的两个号码。

算式描述如图所示

请将程序补充完整

Private Sub Form_Cliek()

Dim a As Integer, b As Integer

Dim I As Integer, s As Integer

s=0

For =10000 To 19999

a={#blank#}1{#/blank#}

b=(i Mod 100)\10

If a=b Then

s={#blank#}2{#/blank#}

End If

Next i

Print“最后两位数字相同的号码个数有：”；{#blank#}3{#/blank#}

End Sub