Question

如何用VB编写一个函数，用来计算开平方

用VB编写一个函数，用来计算开平方，函数应该象这样：mySqr（Num as Long,nLength as Long) as String

其中，Num为被开方的整数，nLength是要想计算得到的10进制位数，结果以字符串返回。
nLength是小数点后的位数。
说明：nLength一般很大，不过不会超过10000
举个例子：
mySqr(2,100)=1.414213562373095048801688724209698078569671875376948073176679737990732478462107038850387534327641573
我一旦有分就会提高悬赏的！
对答对者如果有需要我还可以奉上一个用一个函数算圆周率到万位的代码。

Answer 1

VB自己有开方的简易算法：
开4次方
Private Sub Command1_Click()
Text1 = 2 ^ (1 / 4)
End Sub
开3次方
Private Sub Command1_Click()
Text1 = 2 ^ (1 / 3)
End Sub
开平方
Private Sub Command1_Click()
Text1 = 2 ^ (1 / 2)
End Sub