用Qbasic编程序

Question

使之能够求1-100内的质数，要代码哦！

Answer 1

来一个最简单的吧：

for I = 1 to 100
for J = 2 to I-1
if (I mod J = 0) and (I <> 2) then exit for
if J = I-1 then Print I
Next J
Next I

好长时间没用了，不知道用的对不对

Answer 2

cls
for i =3 to 100 step 2
l=0
for j =2 to sqr(i)
if i mod j = 0 then
l=1
exit for
end if
if l = 0 then print i
next j
next i本回答被提问者采纳

Answer 3

Cls
For n = 2 to 100
k = 1
For i = 2 to n - 1
if (n mod i) = o then
k = 0
End if
Next i
If k = 1 then
print n
End if
Next n