UC知道谁能帮忙读下一个VB简单程序
来源：百度知道 编辑：UC知道 时间：2024/06/22 19:10:30
private sub command1_click()
dim a!,b!,C!,X1!,X2!,disc!
a=val(text1.text)
b=val(text2.text)
c=val(text3.text)
disc=b*b-4*a*c
if disc>=0 then
x1=(-b+xqr(disc))/2*a
x2=(-b-xqr(disc))/2*a
text4.text=str$(x1)
text5.text=str$(x2)
else
x1=-b/(2*a) '实部
x2=sqr(abs(disc))/(2*c) ‘虚部
test4.text=str$(x1)&"+"&str$(x2)&"i"
text5.text=str$(x1)&"-"&str$(x2)&"i"
end if
end sub
以上是我看到的一个解一元二次方程的代码，谁能帮忙分析一下else后面的部分。
dim a!,b!,C!,X1!,X2!,disc!
a=val(text1.text)
b=val(text2.text)
c=val(text3.text)
disc=b*b-4*a*c
if disc>=0 then
x1=(-b+xqr(disc))/2*a
x2=(-b-xqr(disc))/2*a
text4.text=str$(x1)
text5.text=str$(x2)
else
x1=-b/(2*a) '实部
x2=sqr(abs(disc))/(2*c) ‘虚部
test4.text=str$(x1)&"+"&str$(x2)&"i"
text5.text=str$(x1)&"-"&str$(x2)&"i"
end if
end sub
以上是我看到的一个解一元二次方程的代码，谁能帮忙分析一下else后面的部分。
Private Sub command1_click()
Dim a#, b#, c#, x1#, x2#, disc#
a = Val(Text1)
b = Val(Text2)
c = Val(Text3)
disc = b * b - 4 * a * c
If disc >= 0 Then
x1 = (-b + Sqr(disc)) / (2 * a)
x2 = (-b - Sqr(disc)) / (2 * a)
Text4 = Str(x1)
Text5 = Str(x2)
Else
x1 = -b / (2 * a)
x2 = Sqr(-disc) / (2 * a)
Text4 = x1 & "+" & x2 & "i"
Text5 = x1 & "-" & x2 & "i"
End If
End Sub
以上是最简代码
else后面就是让x1为解的实部,让x2为解的虚部,最后输出的时候合并..希望能对你有帮助,^_^b
去看一下VB教学与编程的书就行了 你上面写的的那些书上都有 都是基本，不过我忘了，唯一知道的就是 那个实部和虚部都是注释名词 用来解释的，那个spr和ads好像是开方或者是其他什么的~~！
不好意思 我在说废话啊~~！！
else 后面的是b^2-4ac<0的解，是虚数，由实部和虚部组成 实部=-b/2a 虚部为正负根号（b^2-4ac）/（4ac）i
举例来说 4+3i 和 4-3i就是一组虚数解
else
'当b^2 - 4 *a * c<0的时候，运行else部分。
x1=-b/(2*a) '实部
'楼主应该会解这类方程吧，关于数学问题就不说了
x2=sqr(abs(disc))/(2*c) ‘虚部
test4.text=str$(x1)&"+"&