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

要有正确的格式，可以在菜单--工具--添加过程里自定义一个函数