【说明】
该应用程序是用来求一元二次方程和一元一次方程的，其运行如图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
参考答案：cmdcalculate_Click (2)Str $(-l*c/b)或Str(-l* c/b) 或其等价形式
(3)b * -b -4 * a * c 或其等价形式 (4)delta＜0 或其等价形式
(5)Str$ (((-1) * b - Sqr(delta))/(2*a)) 或其等价形式
解析： (1)空需要填写该函数的名称，说明中已经明确这是“解方程”按钮的Click事件的代码，因此，(1)空应填写“cmdcalculate_ }Click”。
(2)空处是求一元一次方程的解，若a=0，b≠，则x=-c/b，并将它转换字符串。因此(2)空应填写“Str $(-1*c/b)”或“Str(－1*c/b)”。
(3)空处要为delta赋值，由(5)空的上一条语句可以判断，可以看出delta=b2-4ac，再通过这个值进行判断一元二次方程是否有解。因此(3)空应填写“b*b-4*a*c”或其等价形式。
在一元二次方程中，若delta＜0方程无解，因此(4)空应填写“delta＜0”或其等价形式。
(5)空是要写出一元二次方程的另一个解表达式，因此(5)空处应填写"Str $(((-1) * b-Sqr(deha))/(2 * a))"。
