vb求曲线的两个峰值

Question

有一组数，放在excel的第一列里，有两个峰值，
如下列一组数：1  2 3 4 5 6 7 6 5 4 3 4 5 6 5 4 3 2 
找出其中的两个峰值：7和6分别放在text1和text2里，怎么实现，给个具体的代码吧，谢谢啦！！！

Answer 1

Option ExplicitPrivate Sub Command1_Click()
  Dim Arr As Variant
  Dim Data() As String
  Dim Count As Long
  Dim i As Long
  
  Arr = Array(1, 2, 3, 4, 5, 6, 7, 6, 5, 4, 3, 4, 5, 6, 5, 4, 3, 2)
  
 'Arr=split("1 2 3 4 5 6 7 6 5 4 3 4 5 6 5 4 3 2"," ")  '如果数据是字串,用这个
  
  For i = LBound(Arr) + 1 To UBound(Arr) - 1
     If Arr(i) > Arr(i + 1) And Arr(i - 1) < Arr(i) Then
        Count = Count + 1
        ReDim Preserve Data(1 To Count) As String
        Data(Count) = Arr(i)
     End If
  Next
  
  For i = LBound(Data) To UBound(Data)
    MsgBox Data(i)
  Next
End Sub