VB程序设计题——随机产生20个大于0小于100的整数,并分别计算出所有奇数和所有偶数的和.
题目
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 sub
举一反三
已知函数f（x）=x，g（x）=alnx，a∈R．若曲线y=f（x）与曲线y=g（x）相交，且在交点处有相同的切线，求a的值和该切线方程．
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
热门考点
- 纯净水有哪些成份?
- x等于未知数,解方程,
- 充满生机与活力词语是什么
- (1)立方—（-8又2分之1)乘17分之4+（-3）立方除以【(-2）5次方+5】等于多少?求方法,
- 乙醇,乙醚
- 如果以产生O3的量作为衡量光化学烟雾的严重程度指标,试从反应机理角度论述,当大气中CO含量增加时,光化学烟雾的污染程度是更加严重?还是减轻?
- 在计算代数式（2x^2+ax-5y+b）-（2bx^2-3x+5y-1）的值时,甲把x=—2/3 ,y=3/5误写成x=2/3,Y=3/5
- 初二以生活为话题写一篇作文,700字.
- 为什么催化裂化过程能居石油二次加工的首位
- 过去进行时中的什么时候用was什么时候用were