编一VB程序,随机产生10个30~100(包括30,100)的正整数,求最大值,最小值和平均值,并显示整个数组的值和结果

来源：学生作业帮编辑：搜搜做题作业网作业帮分类：综合作业时间：2024/06/25 22:38:42

Private Sub Command1_Click()
Dim a(10)
Randomize
Dim sum As Integer,min As Integer,max As Integer
sum = 0:min = 100:max = 30
For i = 0 To 9
a(i) = Int(30 + (71 * Rnd))
sum = sum + a(i)
If a(i) < min Then min = a(i)
If a(i) > max Then max = a(i)
Print a(i),
Next i
Print vbCrLf & "最大值:"; max
Print "最小值:"; min
Print "平均值:"; sum / 10
End Su

编一VB程序,随机产生10个30~100(包括30,100)的正整数,求最大值,最小值和平均值,并显示整个数组的值和结果利用随机函数产生10个30～100之间的随机正整数,求最大值,最小值平均值,并显示数组的值和结果随即产生30-100（包括30和100）的10个正整数,求最大值最小值平均值并显示整个组数的值和结果问一个VB基础题啊怎么随机产生10个30到100的数,求最大值、最小值和平均值.输出结果用VB程序写出“利用随机函数产生20个50~100范围内的随机数,显示他们的最大值、最小值和平均值.”怎么写急求VB编程“利用随机函数产生10个50-100之间的随机整数,求它们的最大值和平均值,要求用数组做”, 随机产生100个元素的一维数组a和10X10的二维数组b,求a,b数组的最大值,最小值,均值,总和. 写VB代码利用随机函数产生20个50~100之间的随机整数,显示它们的最大值、最小值、和平均值 VB方面的:利用随机函数产生20个50--100范围内的随机数,显示它们的最大值,最小值,和平均值用vb编程：利用随机函数产生50-100范围内的20个随机数,显示其中的最大值、最小值和平均值. VB计算：随机产生20个1～100的正整数放入数组中,显示产生的数,并求出其最大值利用随机函数产生50-100范伟内的20个随机数,显示其中的最大值,最小值和平均值