不好意思，請諸位大大幫幫忙，小弟表單只有一個指令按鈕
要畫一個指數函數，利用這個函數找出每一點的最高點當作直方圖的頂點（Y座標）
劣者現在的問題是直方圖沒有辦法配合指數函數的頂點，所以肯請版上大大幫忙

**********以下是程式*************
Private Sub Command1_Click()
mu = InputBox("請輸入參數")
If mu > 40 Then
MsgBox ("Error")
Unload Me
End If
Cls
Scale (-1, 0.7)-(10, -0.1)
DrawWidth = 1
Line (-1, 0)-(10, 0), RGB(0, 0, 255)
Line (0, 0.7)-(0, -0.1), RGB(0, 0, 255)
DrawWidth = 3

For x = 0.1 To 8 Step 0.01
PSet (x, (1 / mu) * Exp(-x / mu)), RGB(255, 0, 0)
Next x

limitl = x - 0.5
limitu = x + 0.5
For w = 1 To 4
maxpdf = (1 / mu) * Exp(-w / mu)
Next w
Line (limitl, 0)-(limiltu, maxpdf), RGB(0, 255, 0), BF
End Sub

最後請大大幫幫忙 ，幫忙劣者找出錯誤，感恩