Sqrt()在VB里怎么使用？

Question

我在VB里写了一个Sqrt（）函数，结果报告说没有定义。我想知道这是怎么回事？怎么解决？谢谢！

Answer 1

在VB6中，没有名为Sqrt（）函数或子过程；只有Math.Sqr(...)函数！函数 Math.Sqr(x)求一个数x的平方根。这个函数中x≥0所得结果（根）为Double类型举例如下：123    Dim root As Double    root = Math.Sqr(10)    MsgBox "10的平方根为：" + CStr(root)如果试图求一个负数的平方根引发错误：

Answer 2

Public/Private Function sqrt()函数代码End Function要有正确的格式，可以在菜单--工具--添加过程里自定义一个函数