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

语句自己找给思路。第一种：暴力运算1。申请2个变量jsum,osum分别放奇数和、偶数和。赋初值0。2。做个循环从1到100,变量用i2。1 判断i是否为奇数,是的话jsum=jsum+i,否则osum=osum+i3。输出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