作业帮建立一个一位数组A,数组元素是用随机函数产生的10个正整数,并在窗体上输出,要求5个一换行.求出该数组元素的最大值和最小值并输出,求出该数组元素的平均值并输出,要求计算最大值和最小
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/30 06:42:25
建立一个一位数组A,数组元素是用随机函数产生的10个正整数,并在窗体上输出,要求5个一换行.求出该数组元素的最大值和最小值并输出,求出该数组元素的平均值并输出,要求计算最大值和最小
建立一个一位数组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
建立一个一位数组A,数组元素是用随机函数产生的10个正整数,并在窗体上输出,要求5个一换行.求出该数组元素的最大值和最小值并输出,求出该数组元素的平均值并输出,要求计算最大值和最小
Print "平均值是：" & 平均
改为
Print "平均值是：" & 平均(a)