這程式很簡單

有一個公式

一元二次方程式都可以移項成下列方程

aX^2+bX+c=0

解是:

所以程式碼是:

dim a,b,c as integer
'----------------------------------------
Private Sub RUN_Click()
a = Val(constant_text(0).Text)
b = Val(constant_text(1).Text)
c = Val(constant_text(2).Text)
If Val(b ^ 2 - 4 * a * c) < 0 Then'不能是0,加入判斷條件
answer_box(0).Text = "無實數解"
answer_box(1).Text = "無實數解"
Else
answer_box(0).Text = (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
answer_box(1).Text = (-b - Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
End If
End Sub

注意:

RUN是一個command botton

constant_text是一個text1陣列

answer_box也是text陣列

至於載點...下次在給吧

arrow
arrow
    全站熱搜

    oi850120 發表在 痞客邦 留言(0) 人氣()