使用VB编程算平方根

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

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

'定义连乘函数，或者叫乘方Private Function lc(number, n As Integer)Dim myresultmyresult = 1Dim i As IntegerFor i = 1 To n    myresult = myresult  numberNextlc = myresultEnd Function    

12345678910111213141516171819202122    '开任意次方Private Function Power(number As Double, n As Integer)Dim j As DoubleDim myresult As Doublemyresult = 00000001For j = p To number Step 000001                            Dim myNum As Double    myNum = lc(j, n)    If myNum <= number Then    myresult = j    Else    Exit For    End IfNextPower = myresultIf lc(Int(Power) + 1, n) = number ThenPower = Int(Power) + 1ElsePower = myresultEnd IfEnd Function

调用示范：

MsgBox Power(28, 3)

在vb代码运行时，不需要用上标来表示立方，而已

幂

的形式表示

如：n^3

就表示n的3次方了！

如果纯粹是界面设计的问题，可以这样做：

在窗体上添加2个labe1,设置其backstyle设为0

，透明，然后摆放他们的位置来达到你需要的n的3次方的界面！