100分求两算术题小程序~~

Question

1.用二分法写个VB程序
求一个方程的根
2的X次方-X的平方-1=0这个式子
求[4，5]之间的一根，精度0.001  2.用VB使用[列主元高斯消去法]求解
0.2368 0.2471 0.2568 1.2671   1.8471
0.1968 0.2071 1.2168 0.2271   1.7471
0.1581 1.1675 0.1768 0.1871   1.6471
1.1161 0.1254 0.1397 0.1490   1.5471 因为本人不懂VB,还请VB达人高抬贵手啊~~
无限感激~~

Answer 1

Dim dblMin As Double
    Dim dblMax As Double
    Dim dblMid As Double
    Dim dbltmp As Double
    dblMin = 4
    dblMax = 5
    
    Do
        dblMid = (dblMin + dblMax) / 2
        dbltmp = 2 ^ dblMid - dblMid ^ 2 - 1
        If Abs(dbltmp) < 0.000001 Then Exit Do
        If dbltmp > 0 Then
            dblMax = dblMid
        Else
            dblMin = dblMid
        End If
        DoEvents
        
    Loop
    Debug.Print dblMid
运行结果 4.25746202468872
验证结果  2^4.25746202468872 -  4.25746202468872 ^2 - 1 =5.2278353734289969710317674093115e-7