Lỗi khi tìm cực trị hàm số (1 người xem)

[quoctien.tedi]

Mình có một đoạn code sau:
1. Khi tính min hàm số. Nếu cho i = 1,2...5 thi kết quả trả về f(i)min đúng. Nhưng khi cho i = 6....trở lên. f(i) trả về là 0. Lỗi tại đâu ??? Các Pro hãy tìm giúp
2. Nếu minh thêm một điều kiện nữa với f(i) ví dụ tìm f(i) min và f(i) > một số nào đó. Code như thế nào? Bạn hướng dẫn mình nhé. Mình đang rất cần.
Private Sub Tinhtoan_Click()
Dim i As Double
Dim min As Double
Dim f(99) As Double
i = Val(x1.Text) ' Bien se duoc nhap vao hop textBox X1
min = f(i)
TxtNhap.Text = TxtNhap.Text & "ham f(i)" & Space(20) & "ket qua" & vbCrLf
Do While i <= Val(x2.Text) ' Bien se duoc nhap vao hop textBox X2
f(i) = i * i - 8 * i + 15
TxtNhap.Text = TxtNhap.Text & Space(5) & "f(" & i & ") =" & Space(20) & f(i) ' ket qua cua f(i) se duoc hien trinh hop textBox
If f(i) < min Then min = f(i) ' de so sanh f(1) voi f(2) v.v... va chon ra f(min)
i = i + buocnhay.Text
TxtNhap.Text = TxtNhap.Text & Chr(13) & Chr(10) ' De moi moi f(x) xuong dong trong hop textBox
Loop
TxtNhap.Text = TxtNhap.Text & "f(Xmin) la: " & Space(14) & min ' In ket qua f(min) ra hop texBox
End Sub

 

[nghiaphuc]

Sao bạn không đưa file Excel đã thiết kế Form lên nhỉ?
Cũng xin hỏi thêm một chút là cái hàm số f(i) = i * i - 8 * i + 15 là cố định từ trước hay do người dùng nhập lên Form vậy?