有关密码的模糊记忆：
①该密码为5位数字
②前两位为25，最后一位为1,即25**1
③为了方便记忆，我写在笔记本上的提示信息为：17或53的倍数
问题分析：
1. 确定解的范围
① 可能的解的范围是?
② 变量i表示两位数“**”，n表示五位数的密码，则n =
2. 如何判断某个数是否符合？
3. 编程实现：
Dim n As Integer 'n为可能的密码
Dim i As Integer 'i为循环变量
Dim c As Integer 'c统计疑似密码的个数
c = 0
For i = 0 To 99
4. 打开“解密.frm”，输入代码测试程序（List1中输出可能的密码，Text1中输出疑似密码的个数）。
5. 思考：枚举的内容是否还有其他形式？

Dim a As Integer
Dim i As Integer
Dim x As Integer
x = 0
For i = 0 To 99 Step 1
If i Mod 17 = 0 Or 1 Mod 53 = 0 Then
a = a + 1
x = 25001 + 10 * i
Else
End If
Exit For
Text1.Text = Str(x)
Text2.Text = Str(a)

上面这个是我写的，但是没法算，我怎么看也不知道哪里错了，救救孩子吧

Dim a As Integer
Dim i As Integer
Dim x As Integer
x = 0
For i = 0 To 99 Step 1
x = 25001 + 10 * i
If x Mod 53 = 0 Or x Mod 17 = 0 Then
a = a + 1
Else
End If
Next i
List1.List = Str(x)
Text2.Text = Str(a)

对不起，我上课再也不划水了

dim i as integer
list1.clear
for i =25001 to 25991 step 10
if i mod 17=0 or i mod 53=0 then list1.additem i
next i
text=list1.listcount

Private Sub Command1_Click()
Dim n, i, j, s
j = 0
n = 25000 + 1
For i = 0 To 99
s = n + i * 10
If s Mod 17 = 0 Or s Mod 53 = 0 Then
List1.AddItem s
j = j + 1
End If
Next
Text1 = j
End Sub