首先,要限制a0否則,根本就不是一元二次方程,后面的程序也要出錯(cuò).
其次,if d>=o Then 這里,這個(gè)d>=o似乎 不是零0,你寫的是英文字母o.
第三,公式法求根的時(shí)候,d^1/2改為d^(1/2)
輸入一元二次方程ax2+bx+c=0系數(shù)a,b,c的值,計(jì)算并輸出一元二次方程的兩個(gè)根x1和x2.
輸入一元二次方程ax2+bx+c=0系數(shù)a,b,c的值,計(jì)算并輸出一元二次方程的兩個(gè)根x1和x2.
Private Sub Command1_Click()
Dim a%,b%,c%,,x1!,x2!
a = Val(Text1)
b = Val(Text2)
c = Val(Text3)
d = b ^ 2 - 4 * a * c
If d >= o Then
x1 = (-b + d ^ 1 / 2) / (2 * a)
x2 = (-b - d ^ 1 / 2) / (2 * a)
MsgBox "x1=" & x1
Else
MsgBox "No Root!"
End If
End Sub
到底錯(cuò)在哪里,
Private Sub Command1_Click()
Dim a%,b%,c%,,x1!,x2!
a = Val(Text1)
b = Val(Text2)
c = Val(Text3)
d = b ^ 2 - 4 * a * c
If d >= o Then
x1 = (-b + d ^ 1 / 2) / (2 * a)
x2 = (-b - d ^ 1 / 2) / (2 * a)
MsgBox "x1=" & x1
Else
MsgBox "No Root!"
End If
End Sub
到底錯(cuò)在哪里,
數(shù)學(xué)人氣：390 ℃時(shí)間：2019-08-20 20:19:26
優(yōu)質(zhì)解答
我來回答
類似推薦
- 用vb做：輸入一元二次方程ax^2+bx+c=0的系數(shù)abc,計(jì)算并輸出一元二次方程的兩個(gè)根x1,x2
- 輸入一元二次方程 ax 2 +bx+c=0 的系數(shù) a 、 b 、 c ,計(jì)算并輸出兩個(gè)根 x1 、 x2
- 若x1、x2是一元二次方程ax2+bx+c=0（a≠0,a、b、c為系數(shù)且為常數(shù)）的兩個(gè)根,則x1+x2=−b/a,x1•x2=c/a,這個(gè)定理叫做韋達(dá)定理．如：x1、x2是方程x2+2x-1=0的兩個(gè)根,則x1+x
- VB輸入一元二次方程ax2+bx+c=0的系數(shù)a,b,c,計(jì)算并輸出一元二次方程的兩個(gè)根x1,x2.求代碼及窗體設(shè)計(jì)
- 若x1,x2是關(guān)于x的一元二次方程ax2+bx+c=0（a≠0）的兩個(gè)根,則方程的兩個(gè)根x1x2和系數(shù)
- 氧化鈣是酸性的還是堿性的?
- 求解高數(shù)一題：哪位好心人能幫幫我?
- 高斯公式是什么?
- do 和are的區(qū)別
- 如圖所示，在直角梯形ABCD中，∠A=∠B=90°，AD∥BC，E為AB上一點(diǎn)，DE平分∠ADC，CE平分∠BCD，以AB為直徑的圓與邊CD有怎樣的位置關(guān)系？
- 13.如圖10,在⊙O中,弦AB與DC相交于點(diǎn)E,AB=CD.求證:△AEC≌△DEB.3Q
- 已知原X2+Y2=1,從這個(gè)圓上任意一點(diǎn)P向Y軸作垂線段PP1,求線段PP1的中點(diǎn)軌跡
猜你喜歡
- 1七年級(jí)下學(xué)期數(shù)學(xué)題（不等式與不等式組）
- 2At around twelve o'clock.翻譯
- 3The people of Norway are called Norwegians.
- 4震耳欲聾的近義詞和反義詞是什么?
- 5放棄造句
- 6陸生高等動(dòng)物具有（ ）和防止水分散失的（ ）,是它們對(duì)陸地環(huán)境的一種重要適應(yīng)方式.
- 7英語翻譯
- 8在三角形ABC中,BC=a,AC=b,且a、b是方程x^2-(2根號(hào)3)x+2的兩個(gè)根,且2cos(A+B)=1,求AB的長度
- 9水結(jié)成冰后體積增加了111，冰融化成水后，體積減少（ ?。?A.111 B.112 C.211 D.322
- 10best wishes for you everyday是什么意思
- 11從宏觀與微觀的角度描述水的變換過程
- 12食鹽（氯化鈉）的密度是多少?