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:语句④的位置不正确,应该移到语句②的下一行