大橙子网站建设,新征程启航

为企业提供网站建设、域名注册、服务器等服务

vb.net算术平方根 vb中平方根

使用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编一个程序计算两个数的平方根?

用一个标输出结果???

什么是标啊,我用msgbox输出的...你最后还谢绝,我真服了你的语言表达能力了

Private Sub Command1_Click()

'计算text1

If IsNumeric(Text1) Then

If CLng(Text1) 0 Then

MsgBox "text1 内为负数,不能开方"

Else

MsgBox "text1 开方结果:" Sqr(CDbl(Text1))

End If

Else

MsgBox "text1 内不是数字"

End If

'计算text2

If IsNumeric(Text2) Then

If CLng(Text1) 0 Then

MsgBox "text2 内为负数,不能开方"

Else

MsgBox "text2 开方结果:" Sqr(CDbl(Text2))

End If

Else

MsgBox "text2 内不是数字"

End If

End Sub

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算术平方根 vb中平方根
当前链接:http://dzwzjz.com/article/dogssgs.html
在线咨询
服务热线
服务热线:028-86922220
TOP