k = 0                                 '用来计数

Max = Val(Text1.Text)                   '指定范围

n = 9                            '①

Do While n <= Max                    

  If n Mod 3 = 2 And n Mod 5 = 3 Then  '②

     List1.AddItem Str(n)            

  End If                            

  n = n + 7        ' ③

  k = k + 1         ④

Loop

Label1.Caption = Str(Max) & "范围内满足问题的数有" & Str(k) & "个"

运行程序，在文本框中输入自然数600，结果统计的个数与列表框中输出的个数不相符，如图所示：

请问出现此问题的原因是  (    )

153=1×1×1+5×5×5+3×3×3

小张设计了一个算法来输出所有的水仙花数，具体程序如下。

图1

输入火柴棍的数量n（n≤24），计算可以拼出多少个“A+B=C”的等式？要求：

① 加号与等号各自需要两根火柴棍。

② A、B、C为非负的整数，且该数非零时，最高位不能是0。

③ 如果A≠B，则A+B=C 与B+A=C 视为不同的等式。

④ n 根火柴棍必须全部用上。

小明发现，数字1用的火柴棍最少，24根火柴棍全部用上的话，能拼出最大的整数A或B不超过1111，C不超过2222。他编写了一个VB 程序，在文本框Text1中输入火柴棍的数量，单击“统计”按钮Command1，在文本框Text2中输出“A+B=C”的方案数，程序界面如图2所示。

图2

实现上述功能的VB程序如下，请回答下列问题：

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

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

实现上述功能的VB代码如下。

Dim a(1 To 50) As Integer

Private sub Command1_Click()

    Dim i As Integer

    k=0: i=3

    Do While i<= 100

        If Not prime(i) Then

            k=k+1

        End If

        i=i+2

    Loop

    For i=2 To k

        If         Then

            List1 AddItem Str(a(i-1))+"和"+ Str(a(i))

        End if

    Next i

End Sub

Function prime (x As Integer)As Boolean

    prime=False

    For i=2 To Int(sar(x))

        If x Mod i=0 Then

            prime=True

            Exit for

        End If

    Next i

End Function