回 帖 发 新 帖 刷新版面

主题:求救!!1到100之间奇数的和这个程式怎么写下啊

1到100之间奇数的和!!!偶数呢

回复列表 (共42个回复)

21 楼

[em2]
奇数:
CLS
FOR A = 1 TO 100 STEP 2
PRINT A

偶数:
CLS
FOR A = 2 TO 100 STEP 2
PRINT A

22 楼

4楼的N输的没意义,应该讲100换成N,计算任意N以内的奇数或偶数的和

23 楼

站在编程的角度,用for....step来编比较能锻炼能力!!!

24 楼

for i=1 to 100
if i%2=0 then
s=s+i
else 
w=w+i
endif
next i
print s,w

25 楼


扔任何变量在没定义或没赋值都=0
所以8楼的s=0......可以不要 写

26 楼

for i=1 to 100
if i mod 2 <>0 then
s=s+i
endif
next i
print s
end

27 楼

26楼落了一句吧.仅算出奇数出现的次数.

28 楼

1楼好,算术问题,用不着语句.

29 楼

CLS
FOR I=1 TO 100 STEP 2
S=S+I
NEXT I
? S
END

30 楼

我觉得还是先学QB比较好!先打好基础是很重要的!
把QB学好再学VB应该会简单多了!
我建议你先学QB!这只是一个建议,最后的决定权还掌握在你自己的手里!
希望你自己的决定没有错误!

我来回复

您尚未登录,请登录后再回复。点此登录或注册