這程式很簡單
有一個公式
一元二次方程式都可以移項成下列方程
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陣列
至於載點...下次在給吧
全站熱搜
留言列表