窗体上有三个文本框(名字分别为Texta, Textb, Textc)和一个名为 Labela的标签。下列程序的功能是输入一元二次方程ax2+bx+c=0(a不为0)的3个系数a、b、c，在标签上显示根的情况。

高老师2年前 (2024-03-26)Visual Basic程序设计(07759)14

窗体上有三个文本框(名字分别为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