使用VB编程算平方根

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

创新互联专注为客户提供全方位的互联网综合服务，包含不限于网站设计、网站建设、新田网络推广、微信小程序开发、新田网络营销、新田企业策划、新田品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们最大的嘉奖；创新互联为所有大学生创业者提供新田建站搭建服务，24小时服务热线：18982081108，官方网址：www.cdcxhl.com

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

'定义连乘函数，或者叫乘方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 = 0.0000001For j = p To number Step 0.00001                            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.net的开方运算

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)

VB如何中开方

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) ' 生成一个运行时错误（负数不能用此函数开平方根）。

文章名称：vb.net如何开平方根 vb 平方根
URL网址：http://myzitong.com/article/hgejse.html