我想用vb编一个解x-sin（x*pi/180） = a（a是一个实数）
主要是因为本人只是高中课上学了一点点vb基础，然后网上有讲二分法解超越方程的代码
原来的代码是：Dim x1, x2, m As Double
    x1 = Val(Text1.Text)
    x2 = Val(Text2.Text)
    If f(x1) * f(x2) < 0 Then
        Do
            m = (x1 + x2) / 2
            If f(m) = 0 Then
                x1 = m
                x2 = m
            End If
            If f(x1) * f(m) > 0 Then
                x1 = m
            Else
                x2 = m
            End If
        Loop Until Abs(x1 - x2) < 0.000000001
        Text3.Text = Text3.Text & vbCrLf & "此方程的根为：x=" + CStr((x1 + x2) / 2)
    Else
        Text3.Text = Text3.Text & vbCrLf & "区间错误！"
    End If
End Sub
就是他这里要先手动输入一个包含方程的解的区间[x1,x2]，如不包含方程的解就会“区间错误”。然后我想x-sin（x*pi/180）=a，其中sin（）部分肯定>=-1,<=1,那方程的解应该会在【a-1，a+1】这个区间内，所以我把上面的代码要求手动输入区间的部分改成x1=a-1 x2=a+1,可结果就会显示“区间错误”，但如果我手动在textbox里输入a+1和a-1的值就可以正常计算，求助问题出在哪里

代码没有给全吧，f这个函数在哪？
你的代码很简单，就得看If f(x1) * f(x2) < 0 Then这句的结果，没有f无法判断