急求VB编程“利用随机函数产生10个50-100之间的随机整数,求它们的最大值和平均值,要求用数组做”,

来源：学生作业帮编辑：百度作业网作业帮分类：综合作业时间：2024/04/28 08:06:12

Private Sub Command1_Click()
Randomize
Dim a(10) As Integer,imas as integer,imin as integer,Average as integer
imax = 49
imin = 101
Average=0
For i = 0 To 9
a(i) = Int(Rnd * 51) + 50
Average=Average+a(i)
If imax < a(i) Then imax = a(i)
If imin > a(i) Then imin = a(i)
Print a(i),
Next
Print
Print "最大值和最小值和平均值是："; imax; imin; Average / 10
End Sub
楼上的平均值计算是错误的,并且循环多了一次

急求VB编程“利用随机函数产生10个50-100之间的随机整数,求它们的最大值和平均值,要求用数组做”, 写VB代码利用随机函数产生20个50~100之间的随机整数,显示它们的最大值、最小值、和平均值求一VB代码,用数组保存随机产生的10个介于20到50之间的整数,编程求出其中的最大数、最小数和平均值,并用vb编程：利用随机函数产生50-100范围内的20个随机数,显示其中的最大值、最小值和平均值. 用VB编程：随机产生10个0~100之间的随机整数,存放在一个数组中,然后求个元素和、平均值,统计 VB,用VB语言写!随机产生10个两位整数,求期中的最大值,最小值和平均值. VB方面的:利用随机函数产生20个50--100范围内的随机数,显示它们的最大值,最小值,和平均值编一VB程序,随机产生10个30~100(包括30,100)的正整数,求最大值,最小值和平均值,并显示整个数组的值和结果用VB程序写出“利用随机函数产生20个50~100范围内的随机数,显示他们的最大值、最小值和平均值.”怎么写 VB用数组保存随机产生的10个介于20到50之间的整数,编程求出最大值,最小值,和平均利用随机函数产生10个30～100之间的随机正整数,求最大值,最小值平均值,并显示数组的值和结果 vb问题利用随机函数产生80个10～99之间的随机整数,