【说明】
该应用程序是用来求一元二次方程和一元一次方程的，其运行如图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
