VB的运算顺序是：先乘除、后加减，有括号的先算括号内，有负号的先算负号。
创新互联专注于掇刀网站建设服务及定制，我们拥有丰富的企业做网站经验。 热诚为您提供掇刀营销型网站建设，掇刀网站制作、掇刀网页设计、掇刀网站官网定制、微信小程序服务，打造掇刀网络公司原创品牌,更为您提供掇刀网站排名全网营销落地服务。
请你比较一下这个运算中x和y的值：
Dim n As Single = 4
Dim x As Single
Dim y As Single
x = n + 1
x = x / n
x = x - 1
x = Math.Sqrt(x)
y = Math.Sqrt((n + 1) / n - 1)
这样就会发现，你的代码中括号的位置错了。
正确的应该是： Math.Sqrt((n + 1) / n - 1)
要用程序来开平方，首先你最起码要知道经过自己推导出来的公司，其次再是求精度，你说的nLength是要得到的10进制位数，这个不能给你保证，你得用一个小数位数来表达精度。假如你开一个非常大的数，你的整数部分就可能超过10位，更不要谈精度
方法是这样的：
x表示我要开的数,y表示结果,z是和开方后比较接近的数
y=z+(x-x^2)/2*z
也许你还不太明白，具体举例来说明
sqr(x)代表开x，即根号x，这个符号不太好打
假如我开5，即求根号5的值
5比4大sqr(4)=2,sqr(9)=3,9比5大，即459，所以2sqr(5)3,我们任取这个范围的一个数，就取2.5，z=2.5
y=2.5+(5-2.5^2)/2.5*2=2.25
此时比较接近结果的值是2.25,即z=2.25
y=2.25+(5-2.25^2)/2.25*2=2.2361112
比较接近了，想要再精确，就再次循环
通过上面的举例，相信你已经发现了用循环来求精度
具体该怎么做，相信你已经知道了
Sqr 函数
返回一个 Double，指定参数的平方根。
语法
Sqr(number)
必要的 number 参数 number 是 Double 或任何有效的大于或等于 0 的数值表达式。
例子:
Dim MySqr
MySqr = Sqr(4) ' 返回 2。
MySqr = Sqr(23) ' 返回 4.79583152331272。
MySqr = Sqr(0) ' 返回 0。
MySqr = Sqr(-4) ' 生成一个运行时错误（负数不能用此函数开平方根）。