189 8069 5689
这纯就是一个计算题：
创新互联于2013年创立，先为溆浦等服务建站，溆浦等地企业，进行企业商务咨询服务。为溆浦企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
'Sqrt (X + 16) + Sqrt(X + 9) = 100
'x+16+x+9+2*sqrt(x+16)*sqrt(x+9)=1000
'2*sqrt(x+16)*sqrt(x+9)=10000-2*x
'4*(x+16)*(x+9)=(10000-2*x)^2
'4(x^2+25*x+144)=4*x^2-40000*x+10000^2
'100X+576=-40000*x+10000^2
'40100x=10000^2+40000
'x=(10000^2+40000)/40100=2494.76309226933
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)
(-b+(b^2-4ac))/(2a) (-b+(b^2-4ac))/(2a) 是2个根
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)是唯一解
问题不是很简单吗？
判断输入的数,大于等于零,则直接开方;小于零则取绝对值开方再加上字符"i",代码我就不写了.
vb6中没有sqrt，只有sqr
math.sqrt出现在了vb.net中，仅仅是将Sqr归类到math这个类下了，没有更多的区别