作业帮 > 数学 > 作业

VB程序设计题——随机产生20个大于0小于100的整数,并分别计算出所有奇数和所有偶数的和.

来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/05/11 15:25:59
VB程序设计题——随机产生20个大于0小于100的整数,并分别计算出所有奇数和所有偶数的和.
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 su