用VB定义一个Variant型的一维数组的程序，10个实数，求出数组元素的最大值最小值及数组元素的和及平均值

Question

用VB定义一个Variant型的一维数组的程序，有10个实数，用Array函数数组初始化，求出数组元素的最大值最小值及数组元素的和及平均值

Answer 1

Private Sub Command1_Click()
Dim a
a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 0)
Dim i As Integer, max As Single, min As Single, sum As Single, avg As Single
min = a(0)
For i = 0 To 9
    Print a(i);
    If max < a(i) Then max = a(i)
    If min > a(i) Then min = a(i)
    sum = sum + a(i)
Next
Print
avg = sum / 10
Print "max:"; max, "min:"; min, "avg:"; avg
 
End Sub

追问

还的求和。。而且，定义的十个数，不是用dim a as integer 这种定义的吗

追答

Print "max:"; max, "min:"; min, "sum:";sum,"avg:"; avg

dim a=dim a as variant