作业帮 > 综合 > 作业

随机产生10个30~100(包括30,100)的正整数,求最大值、最小值和均值,并显示整个数组的值和结果.

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/15 09:46:46
随机产生10个30~100(包括30,100)的正整数,求最大值、最小值和均值,并显示整个数组的值和结果.
越快越好 快的追加50分
这好象不是VB编程 不过还是谢谢了 我做好了 给你50分
Dim x(10) As Integer, i As Integer, k As Integer
For i = 1 To 10
x [i] = 30 + Int(70 * Rnd(1) + 0.5)
Next
k = 0
For i = 1 To 10
If x(i) > k Then k = x(i)
Next
Print k
End