Question

跪求用VB编写程序计算1~100之间的奇数和、偶数和。要源码。

Answer 1

语句自己找给思路。
第一种：暴力运算
1.申请2个变量jsum，osum分别放奇数和、偶数和。赋初值0。
2.做个循环从1到100，变量用i
2.1 判断i是否为奇数，是的话jsum=jsum+i，否则osum=osum+i
3.输出jsum，osum

第二种：推算法。
由题意有
奇数和=1+3+5+。。。+99=50×（1+99）/2
偶数和=2+4+6+。。。+100=50×（2+100）/2
直接输出50×（1+99）/2，50×（2+100）/2两值

如果是求1~n之间的奇数和、偶数和。n>2
则
判断n是否为奇数，如果是则
奇数和=（(n+1)/2）*(1+n)/2
偶数和=（(n+1)/2 -1）*(2+n-1)/2
不是则
奇数和=（n/2）*(1+n-1)/2
偶数和=（n/2）*(2+n)/2

Answer 2

我只记的大概写，这也不是很好的算法。简单一点就是了。
for i=1 to 100
for j=1 to i
if i%j=0 then 输出 i
next j
next i
这种算法很浪费，有一个好一点的，给忘了。如下再写
for i =1 to 100
for j=1 to 平方根i
if i%j=0 then 输出i
next j
next i
下面这种是比较好的，只是理解的话自己琢磨一下。
上面那比较容易理解一些就是了。
忘了说下，上面是求质数的，我给看理解错了。