建立一个一位数组A,数组元素是用随机函数产生的10个正整数,并在窗体上输出,要求5个一换行.求出该数组元

来源：学生作业帮编辑：百度作业网作业帮分类：综合作业时间：2024/04/29 02:22:07

建立一个一位数组A,数组元素是用随机函数产生的10个正整数,并在窗体上输出,要求5个一换行.求出该数组元
素的最大值和最小值并输出,求出该数组元素的平均值并输出,要求计算最大值和最小值是由过程来实现,计算数组元素的平均值是由函数来实现
我编了个程序,但是不对,请高手帮忙看看那里需要改,怎么改,
Option Base 1
Dim i As Integer
Private Sub 求最大最小(a() As Integer,max As Integer,min As Integer)
max = a(1)
min = a(1)
For i = 1 To 10
If a(i) > max Then max = a(i)
If a(i) < min Then min = a(i)
Next i
End Sub
Private Function 平均(a() As Integer) As Integer
Dim s As Integer
For i = 1 To 10
s = s + a(i)
Next i
average = s / i
平均 = average
End Function
Private Sub Command1_Click()
Dim a(10) As Integer
Dim 最大 As Integer,最小 As Integer
Randomize
For i = 1 To 10
a(i) = Int((99 - 10 + 1) * Rnd + 10)
Print "" & a(i);
If i Mod 5 = 0 Then Print
Next i
Call 求最大最小(a(),最大,最小)
Print "最大值是：" & 最大
Print "最小值是：" & 最小
Print "平均值是：" & 平均
End Sub

Print "平均值是：" & 平均
改为
Print "平均值是：" & 平均(a)
再问：为什么这么改啊？原因是什么？
再答： Private Function 平均(a() As Integer) As Integer 你这个函数不是有参数的吗？你调用的时候不加参数肯定就错了！Call 求最大最小(a(), 最大, 最小)这个你会加参数，为什么函数你就不加了呢？
再问：哦。这样啊，知道了。还有个问题想请教，就是average那个式子是不是错了？我用计算器检验了一下，整个程序运行得出的平均数不对啊
再答： average = s / i 改为 average = s / (i -1) 或干脆改为 average = s / 10 因为退出循环后，i是等于11的
再问：有点蒙……能解释一下退出循环后为什么i是11吗？之前已经限定是1 to 10了啊
再答：当i循环到10时，由于还在限定的范围内，所以继续运行循环体内的代码，运行到Next i时，i自动+1变为11了，由于超过了限定的范围，它就不再循环了，所以这时候i就等于11了。
再问：哦，明白了，非常感谢！O(∩_∩)O~以后还请多多指教！

建立一个一位数组A,数组元素是用随机函数产生的10个正整数,并在窗体上输出,要求5个一换行.求出该数组元一个具有10个元素的一维数组,下标从1到10,每个数组元素的值是随机函数产生的1～100之间的随机整数.要求：用Visu 利用随机函数产生16个随机整数给一个4*4的二维数组赋值.按行列输出数组 ,求最外一圈元素之和. 1．有15个数存放在一个数组中,输入一个数要求用折半查找法找出该数是数组中的第几个元素的值,如果该数不在数组中,则输出无随机产生100个元素的一维数组a和10X10的二维数组b,求a,b数组的最大值,最小值,均值,总和. vb编程：随机产生10个0~100之间整数放到一个数组中,单击窗体,在窗体上显示这10个数以及10个数中的最小值整型数组a中有10个元素,整型数组b中有6个元素,编程将那些在数组a中而不在数组b的数据组成新数组c并输出 C语言编程随机产生10个10到50的正整数存放到数组中,并求数组中的所以元素最大值、最小值、平均值及各元素（1）VB 用随机函数产生20个两位数的整数,存于4行5列的二维数组中,并求出其中的最大元素及它的行、列坐标,将数组按行用java创建一个包含5个元素的List集合,然后将该List集合转换为数组,并输出转换后的数组. 输入10个实数,存入一维数组,输出其中的最大值、最小值和平均值.要求用指向数组的指针变量来处理数组元编写程序利用随机函数产生10个两位数存入数组a中,并按照从大到小顺序排列输出