题目
VB:随机产生30个[100,500]区间的随机整数,求其和及平均值.
提问时间：2021-01-03
答案
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
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的值和该切线方程．
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
- 1（—0.2）的2008次方乘以5的2009次方加上（—1）的2009次方减（—1)=?
- 2若a的相反数最大的负数,b是绝对值最小的数,那么求a+b的值
- 3一个圆柱形铁皮油桶,底面半径是3分米,高于半径的比是4:1,这个油桶的容积是__升
- 4i am swimming at the pool对 am swimming 提问
- 5拿着一片树叶放眼前,答一成语
- 6might have done可不可以.
- 7甲、乙、丙、丁四个数之和等于-90，甲数减-4，乙数加-4，丙数乘-4，丁数除以-4彼比相等，则四个数中的最大的一个数比最小的一个数大_．
- 8一个水池安装了甲、乙两条进水管，在同样的时间内，乙管的进水量是甲管的1.6倍．为了灌满空水池，开始由甲管灌入1/5池水，然后关闭甲管，打开乙管，由乙管单独灌满剩下的水，共用12
- 9双氧水制氧气化学表达式
- 10这个能不能证平行四边形
热门考点