主题：各位高手们请帮我一个忙
kele126
[专家分：60] 发布于 2005-03-26 05:56:00
请问求从1到100的质数的和用QB怎么写啊![em18]
回复列表 （共21个回复）
11 楼
kele126 [专家分：60] 发布于 2005-03-28 01:56:00
二楼的朋友,你改过的答案也有点问题,我把你的程序试了一下,发现你的结果比答案1060多了1,这也许是你把1也当做质数了吧! 答案应该是这样的:
for a=2 to 100
flag=0
for b=2 to a-1
if a mod b =0 then flag=1
next b
if a=2 or flag<>1 then c=c+a
next a
print c
end
其实,我也只是对你写的程序改了一个数字而已,功劳还是你的!
谢谢你了!
12 楼
kele126 [专家分：60] 发布于 2005-03-28 01:59:00
不好意思 ,写错了,我在11楼把七字写成二字了,还请原谅!
13 楼
klkk [专家分：0] 发布于 2005-04-24 08:26:00
CLS
PRINT 2;
FOR I=1 TO 100
FOR J=2 TO I-1
IF I MOD J=0 THEN F=1
IF F=0 THEN PRINT I;
F=0
NEXT J
NEXT I
END
14 楼
moz [专家分：37620] 发布于 2005-04-24 10:35:00
'感觉很晕
defint a-z
for i=2 to 100
e=spr(i)
for j=2 to e
if i mod j=0 then exit for
next
if j>e then s=s+i
next
?"从1到100的质数和是";s
15 楼
faintzw [专家分：2660] 发布于 2005-04-24 12:56:00
i\2计算速度会慢……
因为sqrt(100)=10,i\2=50
16 楼
moz [专家分：37620] 发布于 2005-04-24 15:40:00
受教受教
是因为我用得少
你们不用我还不知道sprt是开方根呢
17 楼
faintzw [专家分：2660] 发布于 2005-04-24 16:09:00
平方根，square root，QB缩写成sqr,但其他大部分语言都缩成sqrt。
所以，QB中开根是sqr。
14楼的是错的。
18 楼
moz [专家分：37620] 发布于 2005-04-24 16:24:00
呵呵，谢谢，说明我没用过这个函数
是在很高很高的楼上看到的
随手就捡过来了，不好意思
19 楼
cleverboy [专家分：80] 发布于 2005-05-22 09:34:00
s=0
看我写的:
for i= 1 to 100
for j=2 to i-1
if i mod j=0 then m=m+1
next j
if m=0 then s=s+i
next i
? "一百之内的质数之和为";s
20 楼
cleverboy [专家分：80] 发布于 2005-05-22 09:34:00
s=0
for i= 1 to 100
for j=2 to i-1
if i mod j=0 then m=m+1
next j
if m=0 then s=s+i
next i
? "一百之内的质数之和为";s
我来回复
您所在位置：