VB.NET 求一元二次方程的程序

(-b+(b^2-4ac))/(2a) (-b+(b^2-4ac))/(2a) 是2个根

目前累计服务客户近千家，积累了丰富的产品开发及服务经验。以网站设计水平和技术实力，树立企业形象，为客户提供成都网站制作、成都网站建设、外贸营销网站建设、网站策划、网页设计、网络营销、VI设计、网站改版、漏洞修补等服务。创新互联始终以务实、诚信为根本，不断创新和提高建站品质，通过对领先技术的掌握、对创意设计的研究、对客户形象的视觉传递、对应用系统的结合，为客户提供更好的一站式互联网解决方案，携手广大客户，共同发展进步。

Delta = b * b - 4 * a * c '求得b*b-4*a*c并存放在变量Delta中

If Delta = 0 Then '如果Delta的值为0

Re = -b / (2 * a)

b * b - 4 * a * c＝b^2-4ac=0

-b/(2a)是唯一解

vb中math.sqrt与sqrt的区别

vb6中没有sqrt，只有sqr

math.sqrt出现在了vb.net中，仅仅是将Sqr归类到math这个类下了，没有更多的区别

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.编写一个输入三角形的三条边a，b，c的值，根据其数值，判断能否构成三角形。

Dim a, b, c, s, p As Single

a = Val(InputBox("请输入三角形边长a"))

b = Val(InputBox("请输入三角形边长b"))

c = Val(InputBox("请输入三角形边长c"))

If a + b = c Or b + c = a Or c + a = b Then

MsgBox("这样的三角形不存在")

Else

If a = b Or b = c Or c = a Then

MsgBox("这是一个等腰三角形")

End If

If a = b = c Then

MsgBox("这是一个等边三角形")

End If

If a ^ 2 + b ^ 2 = c ^ 2 Or b ^ 2 + c ^ 2 = a ^ 2 Or c ^ 2 + a ^ 2 = b ^ 2 Then

MsgBox("这是一个直角三角形")

End If

p = (a + b + c) / 2

s = Math.Sqrt(p * (p - a) * (p - b) * (p - c))

MsgBox("这个三角形的面积是" s)

End If

End Sub

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

问题不是很简单吗？

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

分享标题：包含vb.netsqrt的词条
分享URL：http://scyanting.com/article/phphdc.html