题干

《孙子算经》中提出“物不知其数”的问题,此数以3除余2,以5除余3,以7除余2。以下程序段是求指定范围内满足该问题条件的自然数及其个数。

k = 0                                 '用来计数

Max = Val(Text1.Text)                   '指定范围

n = 9                            '①

Do While n <= Max                    

  If n Mod 3 = 2 And n Mod 5 = 3 Then  '②

     List1.AddItem Str(n)            

  End If                            

  n = n + 7        ' ③

  k = k + 1         ④

Loop

Label1.Caption = Str(Max) & "范围内满足问题的数有" & Str(k) & "个"

运行程序,在文本框中输入自然数600,结果统计的个数与列表框中输出的个数不相符,如图所示:

请问出现此问题的原因是  (    )

A:语句①错,应改为n=0

B:语句②应改为n Mod 3 = 2 And n Mod 5 = 3 and n Mod 7 = 2

C:语句③错,应改为n=n+1

D:语句④的位置不正确,应该移到语句②的下一行

上一题 下一题 0.0难度 选择题 更新时间:2014-11-12 08:17:55

答案(点此获取答案解析)

D