Dim i as Integer,j as Integer,o as Integer
j = 0
o = 0
For i = 1 To 100 Step 2
j = j + i
o = o + (i + 1)
Next
Debug.print "100以内的奇数和:" & j & ",偶数和:" & o
猜你喜欢
- 1在长方体ABCD-A1B1C1D1中,E,F分别是B1B和A1B1的中点求证:直线EF与B1D1是异面直线
- 2一列磁悬浮列车从上海的龙阳路出发,开往浦东国际机场,1/12小时行驶了25km,照这样的速度,再行驶1/60小时就可以到达浦东国际机场,从龙阳路车站到浦东国际机场的磁悬浮列车专线长多少千米?
- 3做匀加速直线运动的物体,先后经过A、B两点时的速度分别为v和7v,经历的时间为t,则( ) A.前半程速度增加3.5 v B.后半程速度增加3v C.前t2时间内通过的位移为11vt4 D.后t2时间内通过的位
- 4关于《读书真好》作文的开头?
- 52的(2x+1)次方减9*2的x次方+4等于0,求X
- 6求功夫熊猫2中英文对照简介,200字左右,是功夫熊猫2啊!
- 7小兰看一本故事书,第一天看了1/6,第二天看了42页,这时已看的与没看的页数比是2:3.这本书共有多少页
- 8Let me to have a look.哪里错了
- 9一个两位数,十位上的数字比个位上数字小1,十位上的数字与个位上数字的和是这个两位数的1/5,求这个数.
- 10英语翻译