实验4-3-3 Private Sub Form_Click() Dim esp As Double a As Double b As Double c As Double Dim fa As Double fb As Double fc As Double esp = Val(InputBox(输入误差)) a = 0 b = 1 c = (a b)