Vb

程序解一元二次方程

以下是程序代碼

需要的控件

7

個

label

3

個

text

一個

command

Private?Sub?Command1_Click()

Dim?a,?b,?c,?d,?e,?f?As?String

a?=?Text1.Text

b?=?Text2.Text

c?=?Text3.Text

d?=?b?*?b?-?4?*?a?*?c

If?d?>?0?Then

e?=?(-b?+?Sqr(d))?/?2?*?a

Label6.Caption?=?e

f?=?(-b?-?Sqr(d))?/?2?*?a

Label7.Caption?=?f

End?If

If?d?=?0?Then

e?=?(-b?+?Sqr(d))?/?2?*?a

Label6.Caption?=?e

f?=?(-b?-?Sqr(d))?/?2?*?a

Label7.Caption?=?f

End?If

If?d?

Label6.Caption?=?"

無解

"

Label7.Caption?=?"

無解

"

End?If

End?Sub

Private?Sub?Form_Load()

Label1.Caption?=?"

請輸入二次項系數

"

Label2.Caption?=?"

請輸入一次項系數

"

Label3.Caption?=?"

請輸入常數項

"

Label4.Caption?=?"X1="

Label5.Caption?=?"X2="

End?Sub

總結

以上是生活随笔為你收集整理的编写lisp程序解一元二次方程_vb解一元二次方程代码的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。