2.
在我国古代《孙子算经》中曾经提出这样一个问题,原文是这样的:“今有物,不知其数,三三数之,剩二;五五数之,剩三;七七数之,剩二;问物几何?”试用枚举算法来解决这一个问题。现分析如下,所寻找之数为满足如下条件的自然数:以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 = '指定查找范围的最大自然数,Text1文本框中输入'
n = 0
Do While n <= max
n = n + 1 '从自然数1开始不断往上寻找'
If Then
List1.AddItem Str(n) '找到后在List1中显示结果'
End If
Loop
List1.AddItem ("共计" + Str(sum) + "个")
End Sub