[填空題] 下列程序段的功能是輸入一元二次方程ax2+bx+c=0(a≠0)的3個系數(shù)a、b、c，并判斷它根的情況，請將程序補充完整。 Dim a As Si
2021-07-20
[填空題] 下列程序段的功能是輸入一元二次方程ax2+bx+c=0(a≠0)的3個系數(shù)a、b、c，并判斷它根的情況，請將程序補充完整。
Dim a As Single,b As Single,c As Single
Dim delta As Single
a=txt
- A. Text:b=txt
- B. Text:c＝txt
- C. Text
delta= 【11】
If delta＞0 Then
lblResult. Caption="有兩個不相等的實根"
Elself delta＝0 Then
lblResult. Caption="有兩個相等的實根"
【12】
lblResult. Caption＝"沒有實根"
End If
[11] b*b—4*a*c [12] Else
參考解析：根據(jù)題意可分析出變量delta表示一元二次方程的判別式。故用表達式表示出來為b*b-4*a*c?！皼]有實根”是求二次方程根的一種情況，與前面的兩種情況是平行的，但條件不同，又根據(jù)題中的if語句結(jié)構可知[12]處應填Else。
詞條內(nèi)容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學等領域），建議您咨詢相關領域?qū)I(yè)人士。