求一组数据中的最大值及最小值

这是起泡法，建议你多读有关算法的书


Private Sub Form_Click()
Dim d()
d = Array(45, 12, 7, 0, -5, 100, 3, 58.2)
MaxData d
End Sub


Sub MaxData(Data())
Dim Max As Single
Dim i As Integer
Dim h As Integer
Dim s As Integer
Dim d


For Each d In Data
s = s + 1
Next


For i = 0 To s - 1
If i <> 0 Then
For h = i To 0 Step -1
If h = 0 Then Exit For
If Data(h) > Data(h - 1) Then
Max = Data(h): Data(h) = Data(h - 1): Data(h - 1) = Max
Else
Exit For
End If
Next h
End If
Next i


For i = 0 To s - 1
Debug.Print Data(i);
Next i
End Sub

 

 

 

'模块
Public Function maxmin(x() As Single, obj As Form)
  
    Dim n1