我想用vb设计一个程序:用一组数中的最大值减去最小值后,再除以这组数...
发布网友
发布时间：10小时前
共1个回答
热心网友
时间：10小时前
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)))
