VB6.0如何實現(xiàn)一元二次方程的求解? 用vb求一元二次方程的根

發(fā)布時間：2021-12-30 17:28:53 作者：佚名

VB6.0如何實現(xiàn)一元二次方程的求解？剛接觸VB6.0，想要用VB6.0計算數(shù)學公式，該怎么操作呢？下面我們就來看看用vb求一元二次方程的根

在VB6.0編程中，我們可以解決很多數(shù)學上的問題，極大的方便了我們的數(shù)學計算，下面我們就來看看求解一元二次方程是一個經(jīng)典例子，在國家計算機二級中也?？迹裉煳覀兙驮敿毥榻B如何用VB6.0編程實現(xiàn)一元二次方程的求解。

VB 6.0中文企業(yè)版免費下載(206M)

類型：編譯工具
大小：206MB
語言：簡體中文
時間：2020-01-08

查看詳情

首先打開VB6.0軟件，在打開的界面上，點擊【標準exe】按鈕，建立一個標準的exe可執(zhí)行文件，然后點擊【打開】，如圖所示。

然后，可以看到，界面上新彈出來一個Form1，在這個Form1里面，可以進行界面的設計及對應代碼的編寫，如圖所示。

我們根據(jù)一元二次方程的公式，需要3個系數(shù)，這里分別設為a，b，c，然后我們需要兩個實數(shù)解的輸出結(jié)果，這里設置為x1，x2，然后加上相應的文本框及計算按鈕，這些控件都在左側(cè)工具箱里可以找到，只需點擊某個控件，然后在Form1上繪制出來即可。

我們需要在Form1的代碼編輯窗口，編輯一段代碼：

Private Sub Form_Load()
Dim a As Single, b As Single, c As Single, x1 As Double, x2 As Double, R As Double
End Sub

以上代碼，定義了變量a，b，c，x1，x2，R，其中R是用于計算是否存在實數(shù)解。

Private Sub Command1_Click()
a = Text1.Text: b = Text2.Text: c = Text3.Text
R = b ^ 2 - 4 * a * c
If R < 0 Then
MsgBox ("方程無實數(shù)根！")
Else
x1 = (-b + Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
x2 = (-b - Sqr(b ^ 2 - 4 * a * c)) / (2 * a)
Text4.Text = x1
Text5.Text = x2
End If

以上代碼是計算，點擊按鈕后，能否存在實數(shù)解，以及如果存在實數(shù)解，就計算出來，將結(jié)果賦值給對應的文本框。