vb.net求平方根 vb语言中,用于计算平方根的函数是

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.NET为用户提供了Math.Sqrt函数用于计算平方根值，但被开方值若为负数则无法得出正确的结果（如，-4的平

问题不是很简单吗？

判断输入的数,大于等于零,则直接开方;小于零则取绝对值开方再加上字符"i",代码我就不写了.

使用VB编程算平方根

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

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

'定义连乘函数，或者叫乘方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中求一个数的平方根的代码

private

sub

form_click()

dim

intflag

as

integer

dim

strnumber

as

string

dim

strmsg

as

string

strnumber

=

inputbox("输入一个数")

msg$

=

"输入的数是："

+

strnumber

+

chr$(13)

+

chr(10)

+

"确认是否正确"

intflag

=

msgbox(msg$,

36)

if

intflag

=

6

then

print

"sqr（";

strnumber;

")=";

sqr(val(strnumber))

else

print

"取消操作"

end

if

end

sub

private

sub

form_load()

autoredraw

=

true

print

"计算一个数的平方根"

print

"单击窗体开始"

end

sub

VB问题，关于求平方根

把你定义的函数中的这句

squareroot

=

Sqr(n)

改成

squareroot

=

Sqr(x)

变量用错了。呵呵

Sqrt()在VB里怎么使用？

在VB6中，没有名为Sqrt（）函数或子过程；只有Math.Sqr(...)函数！

函数 Math.Sqr(x)求一个数x的平方根。这个函数中

x≥0

所得结果（根）为Double类型

举例如下：

Dim root As Double

root = Math.Sqr(10)

MsgBox "10的平方根为：" + CStr(root)

如果试图求一个负数的平方根引发错误：