Question

使用VB循环语句输出质数

使用VB循环语句输出1~10000，并且显示一共有多少个质数，显示结果要一行20个 两辆之间间隔5个空格~
哪位高手帮帮忙呀~~~
注：最好简单点 偶是初学者 谢谢~

Answer 1

for i=3 to 10000 ‘查找质数
for j=2 to i-1
x=i mod j
if i<>0 then
exit for '如果除了1和本身，还能被任意小于本身的一个数整除，那么此数不是指数，并跳出循环，进行下一个数的判断
esle ‘如果一个数不能被所有小于它的数整除，那么这个数就是质数
pds=1 ‘质数累加的判断数，等于1时，质数个数累加1
end if
next j
if pds=1 then
y=y+1 ‘质数个数累加1
end if
next i ‘指数查找结束
for i 1 to 10000 ‘打印
print i, '打印数
if i<>10000 then
print space(5) '打印5个空格
else
print
print y 在最末尾打印质数的个数
end if
if i mod =20 then print 一行打印20个数
next i

Answer 2

Dim a As Integer, k As Integer, i As Integer, p As Integer, c As Integer, o As String
o = ""
p = 0
For c = 1 To 10000
o = o + CStr(c) + " "
i = 2
a = c
Do
k = a Mod i
i = i + 1
Loop While i < a
If k And c <> 1 Then p = p + 1
If c Mod 20 = 0 Then Print o: o = ""
Next
Print p