K1解析算法、枚举算法与递归算法 中输入 满足条件 条件自然数

我国古代的《孙子算经》中曾经提出这样一个问题，原文是这样的：“今有物，不知其数，三三数之，剩二；五五数之，剩三；七七数之，剩二。问物几何？”试用枚举算法来解决这一个问题。现分析如下，所寻找之数为满足如下条件的自然数：以3除余2，以5除余3，以7除余2。程序将从自然数1开始依次寻找，逐一判断某一自然数是否满足全部条件，直至在指定范围内找到满足条件的所有自然数。程序代码如下，请补充完整。

Private Sub Command1_Click（）
Dim sum As Integer ’sum用来统计符合条件的自然数个数
Dim n，max As Integer
List1.Clear
Sum=0
max= ___（1）___ ’指定查找范围的最大自然数，Text1文本框中输入
n=0
Do While n<= max
n= n+1 ’从自然数1开始不断往上寻找
If ___（2）___ Then
List1.Addltem Str（n）’找到后在List1中显示结果 ___（3）___
End If
Loop
List1.Addltem（“共计”+Str（sum）+“个”）
End Sub
（1）_____________；
（2）_____________；
（3）_____________。


(1) Val(Text1.text)
(2)n mod 3=2 and n mod 5=3 and n mod 7=2
(3)sum=sum+1


此题考查vb的综合应用。
(1)据题“Text1文本框中输入”分析可得答案应为Val(Text1.text) 。
(2)此空下方即是输出答案，因此此空为检验是否符合要求，据题分析可得检验条件为用3除余2，用5除余3，用7除余2，因此可得答案为：n mod 3=2 and n mod 5=3 and nmod 7=2 。
(3)据题“Listl.AddItem(“共计”+Str(sum)+“个”）”可得sum记是记录正确解的个数的变量，因此此空需要sum的自增，故答案为：sum=sum+1。