13.在我國古代《孫子算經》中曾經提出這樣一個問題.原文是這樣的:“今有物,不知其數,三三數之,剩二;五五數之,剩三;七七數之,剩二;問物幾何?”.現分析如下,所尋找之數為滿足如下條件的自然數:以3除余2,以5除余3,以7除余2,程序將從自然數1開始依次尋找,逐一判斷某一自然數是否滿足全部條件,直至在指定范圍內找到滿足條件的所有自然數.程序界面如圖,文本框名為Text1,用于錄入最大自然數;列表框名為List1,用于輸出結果. 程序代碼如下: 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 If
② Then List1.AddItem Str(n)'
③_ End If Loop List1.AddItem (“共計“+Str(sum)+“個“) End Sub (1)解決該問題所用到的是