q = 0: e = 0
For i = 1 To 100
If i Mod 2 = 0 Then
e = e + 1
Else
q = q + 1
End If
Next
Print "奇数个数=";q, "偶数个数=";e
VB用for 循环算1-100的奇数跟偶数有多少个?
VB用for 循环算1-100的奇数跟偶数有多少个?
数学人气：166 ℃时间：2019-08-21 07:49:10
优质解答
我来回答
类似推荐
猜你喜欢
- 1甲乙两辆汽车功率相同,在相同的时间内匀速通过的路程之比为1：2,则
- 2甲、乙2个工程队修一条路,修完了,甲队修了二分之一多15KM,比乙队多修四分之一,甲队修了多少千米?
- 3I want a book that is easy to read that在这里什么意思``为什么用that啊
- 4请问,胞浆中形成NADH+H+,经苹果酸穿梭后1摩尔能产生ATP的摩尔数是多少?
- 5他什么时候向你收的这笔钱 英语怎么说
- 6函数f(x)=根号下x的平方-3x+2的定义域为
- 7已知sinx+siny=2/3,求2/3+siny-cos²a取值范围
- 8三角形ABC,角A=80度,AB,AC垂直平分线分别交BC于D,C.连接AD,AE,求角DAE的度数,急,
- 9函数y=-2x的图像向上平移6个单位后与坐标轴围成的三角形面积是
- 10如果x=2是方程12x+a=-1的解，那么a的值是（ ） A.0 B.2 C.-2 D.-6