重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
这纯就是一个计算题:
创新互联于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这个类下了,没有更多的区别