VB编程:输出1000以内之间所有素数

2024-10-30 19:35:47
有1个网友回答
网友(1):

我有个自己写的简单的
private
sub
form_load()
for
i
=
1
to
1000
if
not(i
mod
sqr(i))
=
0
then
print
i
end
sub
我只要判断这个数是否能够不被自己的开平方除净就可以了``
就拿17和16做次实验
17
mod
sqr(17)
=
sqr(17)所以不能够被除净
所以是素数
16
mod
sqr(16)
=
0
sqr(16)=4
4能够被16整除
所以不是素数