【说明】 该应用程序是用来求一元二次方程和一元一次方程的,其运行如图2所示。
当用户在对应方程系数的文本框(txt1、txt2和txt3)中输入数值后,单击“解方程”按钮 (cmdcalculate),解方程并将解显示在Ⅺ和K2对应的文本框中(txt4和txt5)中。若是一个一元一次方程,只显示在X1对应的文本框中,若无解则弹出对话框。下面的代码是“解方程”按钮的Click事件的代码。 【程序代码】 Private Sub (1) () a=Val(Txt1.Text):b=Val(Txt2.Text);c=Val(Txt3.Text) If a =0 Then If b = 0 Then MsgBox"方程无解!",vbOKOnly,"提示" Txt4.Text=" " Txt5.Text=" " Else Txt4.Text= (2) Txt5.Text=" " End If Else delta= (3) If (4) Then MsgBox"方程无解!",vbOKOnly,"提示" Txt4.Text=" " Txt5.Text=" " Else Txt4.Text=Str $ (((-1) * b + Sqr(delta))/(2 * a)) Txt5.Text= (5) End If End If End Sub