Question

vb编程求一个数的算术平方根 求解!!!!

Answer 1

有现成函数sqr（100）返回10

如果是任意次开方可以自己做一个函数，先做一个连乘的乘方函数，再做一个开任意次方。因为开方就是不断的用连乘来试验的，如下

'定义连乘函数，或者叫乘方
Private Function lc(number, n As Integer)
Dim myresult
myresult = 1
Dim i As Integer
For i = 1 To n
    myresult = myresult * number
Next
lc = myresult
End Function

'开任意次方
Private Function Power(number As Double, n As Integer)
Dim j As Double
Dim myresult As Double
myresult = 0.0000001
For j = p To number Step 0.00001
                       
    Dim myNum As Double
    myNum = lc(j, n)
    If myNum <= number Then
    myresult = j
    Else
    Exit For
    End If
Next
Power = myresult
If lc(Int(Power) + 1, n) = number Then
Power = Int(Power) + 1
Else
Power = myresult
End If
End Function

调用示范：

MsgBox Power(28, 3)