UC知道【编程】用QBASIC求1~2008中的所有质数个数
来源：百度知道 编辑：UC知道 时间：2024/07/05 00:27:50
我的程序是：
CLS
LET n = 2
LET i = 2
LET s = 0
DO WHILE n <= 2008
DO WHILE i < n
IF n / i = INT(n / i) THEN
GOTO a
ELSE
i = i + 1
END IF
LOOP
s = s + 1
a: n = n + 1
LOOP
PRINT s
END
但是最后运行时发现输出结果是2007，请问哪里出了问题
CLS
LET n = 2
LET i = 2
LET s = 0
DO WHILE n <= 2008
DO WHILE i < n
IF n / i = INT(n / i) THEN
GOTO a
ELSE
i = i + 1
END IF
LOOP
s = s + 1
a: n = n + 1
LOOP
PRINT s
END
但是最后运行时发现输出结果是2007，请问哪里出了问题
我的是vb，小小的修改了以下，结果是304，你自己测试一下，看对不对
CLS
LET n = 2
LET s = 0
DO WHILE n <= 2008
LET i = 2
DO WHILE i < n
IF n / i = INT(n / i) THEN
GOTO a
ELSE
i = i + 1
END IF
LOOP
s = s + 1
a: n = n + 1
LOOP
PRINT s
END