VB方面的:利用随机函数产生20个50--100范围内的随机数,显示它们的最大值,最小值,和平均值
题目
VB方面的:利用随机函数产生20个50--100范围内的随机数,显示它们的最大值,最小值,和平均值
答案
Private Sub Form_click()
Dim n(1 To 20) As Integer
Dim i,j,ave,temp
Randomize
For i = 1 To 20
n(i) = Int((51 * Rnd) + 50)
Print n(i)
Next i
For j = 1 To 19
For i = j + 1 To 20
If n(i) >= n(j) Then
temp = n(i)
n(i) = n(j)
n(j) = temp
End If
Next
Next
ave = 0
For i = 1 To 20
ave = ave + n(i)
Next
ave = ave / 20
Print "最大值为:"; n(1)
Print "最小值为:"; n(20)
Print "平均值为:"; ave
End Sub
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
- 已知函数y=2/1(x-1)的平方-3,求:(1)抛物线的顶点坐标及对称轴;(2)x在什么范围内
- 唐朝、北宋、明朝统治者分别采取了怎样的措施防线相权过重的威胁?
- 盐酸与碳酸钙的反应是复分解反应吗
- 把一个底面半径为4dm,高3dm熔铸成一个半径为6dm的圆锥,圆锥的高是多少?
- 1摩尔的硫酸含有多少摩尔的硫酸根,含有多少个氧原子,中子数为多少谢谢了,
- 一字早就有,一共十个口.舌字下面藏,舌子没舌头.
- 甲的钱占两人总人数的三分之二,甲给乙36元后,两人钱数之比是3:5,两人共有多少元?
- 站在烦恼里仰望幸福
- 若(x-p)^2=x^2+x+1/4,求(x-2p)^2的值
- 下雨天打伞 猜一个城市名?
热门考点