18.如圖,在我國古代《孫子算經》中曾經提出這樣一個問題,原文是這樣的:“今有物,不知其數,三三數之,剩二;五五數之,剩三;七七數之,剩二;問物幾何?”試用枚舉算法來解決這一個問題.現分析如下,所尋找之數為滿足如下條件的自然數:以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.AddItem Str(n)'找到后在List1中顯示結果' (3)___ End If Loop List1.AddItem (“共計“+Str(sum)+“個“) End Sub (1)