VB.net如何输出代数式,比如计算带参数的一元二次方程,请写清程序
发布网友
发布时间：2022-04-25 00:04
共1个回答
热心网友
时间：2023-10-16 16:20
额，我可以用vb6.0的语句回答您，给您参考，就是不知道您可以转化成.net语句与否。
'添加text1,text2,text3用于记录a,b,c的值
Private Sub Command1_Click()
On Error GoTo check
Dim a, b, c, result1, result2
a = Text1.Text
b = Text2.Text
c = Text3.Text
result1 = (((-1) * b) + Sqr(b ^ 2 - 4 * a * c)) / 2 * a
result2 = (((-1) * b) - Sqr(b ^ 2 - 4 * a * c)) / 2 * a
MsgBox "x1= " & result1 & " x2= " & result2
Exit Sub
check:
MsgBox "error!please check your number!"
End Sub
