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