1. 在我国古代《孙子算经》中曾经提出这样一个问题,原文是这样的:“今有物,不知其数,三三数之,剩二;五五数之,剩三;七七数之,剩二;问物几何?”试用枚举算法来解决这一个问题。现分析如下,所寻找之数为满足如下条件的自然数:以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

【考点】
枚举算法及程序实现;
【答案】

您现在未登录,无法查看试题答案与解析。 登录
填空题 困难
基础巩固
能力提升
变式训练
拓展培优
真题演练
换一批