Private Sub Bisection()
Dim Ao, Bo, i As Single
    Ao = 0.5
    Bo = 1#
   
    If GivenFunc(Ao) = 0 Then root = Ao: Exit Sub
    If GivenFunc(Bo) = 0 Then root = Bo: Exit Sub
    If GivenFunc(Ao) * GivenFunc(Bo) > 0 Then MsgBox "해가 없습니다.", vbOKOnly + vbInformation: Exit Sub
      
    For i = 0 To maxN
   
        Halfo = 0.5 * (Bo + Ao)
        TOL = (Bo - Ao) * (0.5 ^ maxN)
       
        If GivenFunc(Ao) * GivenFunc(Halfo) < 0 Then
            Bo = Halfo And GivenFunc(Bo) = GivenFunc(Halfo)
            Else: Ao = Halfo And GivenFunc(Ao) = GivenFunc(Halfo)
        End If
       
        With msfgData
            .TextMatrix(i + 1, 0) = i + 1
            .TextMatrix(i + 1, 1) = Halfo
            .TextMatrix(i + 1, 2) = GivenFunc(Halfo)
        End With
       
        If Abs(Bo - Ao) < TOL Then root = Halfo: Exit Sub
        If i > maxN Then MsgBox "횟수를 넘어섰습니다.", vbOKOnly + vbInformation: Exit Sub
       
        i = i + 1
    Next i
   
    Text1.Text = root
   
End Sub

이게 for문이 문제인지 모르겠는데 for i = 0 to maxN 으로 하면 i =0 일때는 결과값이 그리드에 입력되는데 그 뒤로는 나오지가 않아요
그래서 혹시 하고 0을 1로 바꿨더니 아얘 안나오고요..이거 비베가 0만 읽는건지...문제가 뭘까요?