我想用vb设计一个程序：用一组数中的最大值减去最小值后,再除以这组数的的平均数,不过我不会,谢

Dim i, max, min, avg, sum As Integer
For i = 0 to UBound(数组)
If i = 0 Then
min = 数组(0)
max = 数组(0)
End If
If max < 数组(i) then
max = 数组(i)
End if
If min > 数组(i) then
min = 数组(i)
End if
sum = sum + 数组(i)
Next i
Debug.Print cstr((max-min)/(sum/(UBound(数组)+1)))