VB程序设计题——随机产生20个大于0小于100的整数,并分别计算出所有奇数和所有偶数的和.
人气:102 ℃ 时间:2019-10-26 14:36:57
解答
private sub command1_click()
dim js,os,i,a
for i=1 to 20
a=int(Rnd*99)+1
if a mod 2=0 then js=js+i else os=os+i
next
print "奇数之和=" & js
print "偶数之和=" & os
end sub
推荐
猜你喜欢
- tom likes playing chess with his grangpa.(改为否定句)
- 把质量为10kg的物体放在光滑的水平面上,如图所示,在与水平方向成53°的10N的力F作用下从静止开始运动,在2s内力F对物体的冲量为_,2s末物体的动量为_.
- 如下,由静止开始做匀加速运动的汽车,途径间距为125米的A,B两点,历时10s,经过B点时的速度是15米每秒,则出发到点A的间距多大?
- 应用题:小美的时钟分针长6厘米,分针走过5分钟,它的尖端走过多少厘米?分针转过的面积是多少平方厘米?
- 大学无机化学 配合物命名
- 修路队修一条路,已经修了全长的5分之1多120米,还有560米没修,求这条路全长多少米
- 下列哪种细胞与人体口腔上皮细胞的基本结构相同( ) A.洋葱表皮细胞 B.西红柿果肉细胞 C.黑藻叶片细胞 D.血管内表皮细胞
- 动能与速度的关系如何推倒