vb求一元二次方程的根
发布网友
发布时间：2022-12-10 20:17
共4个回答
热心网友
时间：2024-10-28 23:58
dim a,b,c,x1,x2,d as sigle
a=val(textl.text)
b=val(text2.text)
c=val(text3.text)
d=b^2-4*a*c
if d>0 then
x1=(-b+sqr(d))/(2*a)
x2=(-b-sqr(d))/(2*a)
else if d=0 then
x1=(-b/2*a)
x2=x1
else msgbox"方程没有实根"
end if
text4.text="x1=" & x1 & "" & "x2=" & x2
end sub
热心网友
时间：2024-10-28 23:58
Dim a, b, c, x1, x2, d As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = b ^ 2 - 4 * a * c
If d > 0 Then
x1 = (-b + Sqr(d)) / (2 * a)
x2 = (-b - Sqr(d)) / (2 * a)
ElseIf d = 0 Then
x1 = (-b / 2 * a)
x2 = x1
Else: MsgBox "方程没有实根"
End If
Text4.Text = "x1=" & x1 & "" & "x2=" & x2
End Sub
在窗体上画四个文体框,和一个命令按钮,名称分别为:text1,text2,text3,text4,commond1
运行程序后,在分别在文本框text1、text2、text3中输入方程中a、b、c的值，结果会在文本框text4中显示
热心网友
时间：2024-10-28 23:59
Private Sub Command1_Click()
If (Val(Text2.Text) * Val(Text2.Text) - 4 * Val(Text1.Text) * Val(Text3.Text)) >= 0 Then
Text4.Text = (Val("-" & Text2.Text) + Sqr(Val(Text2.Text) * Val(Text2.Text) - 4 * Val(Text1.Text) * Val(Text3.Text))) / (2 * Val(Text1.Text))
Text5.Text = (Val("-" & Text2.Text) - Sqr(Val(Text2.Text) * Val(Text2.Text) - 4 * Val(Text1.Text) * Val(Text3.Text))) / (2 * Val(Text1.Text))
Else
MsgBox "此二次方程无根!", vbInformation, "IQ"
End If
End Sub
其中text1为二次系数,text2为一次系数,text3为常数,text4为X1,text5为X2.截图如下:你可以加点修饰.(注:这个程序求虚数根没有实现)
参考资料：http://p2.images22.51img1.com/6000/iqfuweng/2bfc35714aed4559de43914c597c0e06.jpg
热心网友
时间：2024-10-28 23:59
