VB:随机产生30个[100,500]区间的随机整数,求其和及平均值.
题目
VB:随机产生30个[100,500]区间的随机整数,求其和及平均值.
答案
Dim sum As Integer
Dim cun As Double
sum =0
For i = 0 To 29
Randomize
sum = sum + Int((500 - 100) * Rnd + 100)
Next
cun = sum / 30
print sum
print cun
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
- 小明每天早晨按时从家出发上学,李大爷每天早晨也定时出门散步,两人相向而行,小明每分钟行60米,李大爷
- 稀氢氧化钠吸收二氧化氮方程式
- 甲袋的 质量是乙袋的1又5分之1倍,如果往乙袋里装5千克面粉,两袋就一样重了,甲乙各有几千克?
- 求小学六年级半命题作文"装载 的人"
- 把一个词语变成ABCD,A和B是近义词
- 6.5g某金属R与足量的盐酸(HCl)反应,生成RCl2,同时生成0.2g氢气.则该金属R的相对原子质量是
- 五分之x+七分之y=12,五分之y+七分之x=12
- 有哪些赠别诗
- 求晏殊用到“无可奈何花落去 似曾相识燕归来”的那首“七律诗”不是 浣溪沙
- 用一张长方形的纸怎么折出等边三角形
热门考点