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

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

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

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

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

類型：編譯工具
大小：206MB
語(yǔ)言：簡(jiǎn)體中文
時(shí)間：2020-01-08

查看詳情

首先打開(kāi)VB6.0軟件，在打開(kāi)的界面上，點(diǎn)擊【標(biāo)準(zhǔn)exe】按鈕，建立一個(gè)標(biāo)準(zhǔn)的exe可執(zhí)行文件，然后點(diǎn)擊【打開(kāi)】，如圖所示。

然后，可以看到，界面上新彈出來(lái)一個(gè)Form1，在這個(gè)Form1里面，可以進(jìn)行界面的設(shè)計(jì)及對(duì)應(yīng)代碼的編寫，如圖所示。

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

我們需要在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是用于計(jì)算是否存在實(shí)數(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 ("方程無(wú)實(shí)數(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

以上代碼是計(jì)算，點(diǎn)擊按鈕后，能否存在實(shí)數(shù)解，以及如果存在實(shí)數(shù)解，就計(jì)算出來(lái)，將結(jié)果賦值給對(duì)應(yīng)的文本框。