窗体上有三个文本框(名字分别为Texta, Textb, Textc)和一个名为 Labela的标签。下列程序的功能是输入一元二次方程ax2+bx+c=0(a不为0)的3个系数a、b、c,在标签上显示根的情况。
Private Sub Commandl Click()
Dim a!,b!,c!,delta!
a=Val(TextA.Text):b=Val(TextB.Text):c=(1)____
delta=(2)____
If delta>0 Then
Labela.Caption=“有两个不相等的实根”
ElseIf delta =0 Then
Labela.Caption=“有两个相等的实根”
Else
(3)____=“没有实根”
End IfEnd Sub
窗体上有三个文本框(名字分别为Texta, Textb, Textc)和一个名为 Labela的标签。下列程序的功能是输入一元二次方程ax2+bx+c=0(a不为0)的3个系数a、b、c,在标签上显示根的情况。
(1)Textc. Text 或 Val(Textc. Text) (2)b * b-4 * a * c(3)Labela. Caption