VB6.0如何實(shí)現(xiàn)一元二次方程的求解? 用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)一元二次方程的求解。
首先打開(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)的文本框。
全部編輯完成之后,我們點(diǎn)擊上方的【運(yùn)行】按鈕,然后再點(diǎn)擊下方的【啟動(dòng)】按鈕,啟動(dòng)程序,如圖所示。
在啟動(dòng)的窗口中,分別輸入三個(gè)系數(shù),a,b,c,然后點(diǎn)擊【計(jì)算】按鈕。如果存在實(shí)數(shù)解,則會(huì)在右側(cè)文本框輸出,如果不存在,會(huì)彈框提醒不存在。
如果覺(jué)得有用,記得點(diǎn)贊或投票支持!
注意事項(xiàng):
需要控制好,所有系數(shù)的輸入必須是數(shù)字。需要先判斷有無(wú)實(shí)數(shù)解,再計(jì)算值。
以上就是用vb求一元二次方程的根,希望大家喜歡,請(qǐng)繼續(xù)關(guān)注腳本之家。
相關(guān)推薦:
相關(guān)文章
- VB6.0怎么使用ELementHost控件?VB6.0中有很多空間,該怎么使用ELementHost控件呢?下面我們就來(lái)看看詳細(xì)的教程2021-12-23
- visual basic 6.0中文版是一種由微軟公司開(kāi)發(fā)的包含協(xié)助開(kāi)發(fā)環(huán)境的事件驅(qū)動(dòng)編程語(yǔ)言,它源自于BASIC編程語(yǔ)言,擁有圖形用戶界面(GUI)和快速應(yīng)用程序開(kāi)發(fā)(RAD)系統(tǒng),可2020-01-09
- VB6.0怎么使用文件對(duì)話框控件?VB6.0中想要添加一個(gè)對(duì)話框,該怎么添加對(duì)話框控件呢?下面我們就來(lái)看看詳細(xì)的教程,需要的朋友可以參考下2019-07-22
VB6.0文本框怎么將滾動(dòng)條調(diào)整到文字末尾?
VB6.0文本框怎么將滾動(dòng)條調(diào)整到文字末尾?VB6.0中添加的文本框,發(fā)現(xiàn)默認(rèn)情況下,滾動(dòng)條需要手動(dòng)調(diào)節(jié),想要讓滾動(dòng)條自動(dòng)調(diào)整到文字末尾,該怎么實(shí)現(xiàn)呢?下面我們就來(lái)看看詳2019-07-18- VB6.0代碼怎么設(shè)置某個(gè)控件的屬性?VB6.0想要設(shè)置控件屬性,該怎么設(shè)置呢?我們可以通過(guò)代碼來(lái)設(shè)置,下面我們就來(lái)看看詳細(xì)的教程,需要的朋友可以參考下2019-02-16
- VB6.0項(xiàng)目怎么添加用戶控件?VB6.0編程開(kāi)發(fā)的時(shí)候,想要添加用戶控件,該怎么添加呢?下面我們就來(lái)看看詳細(xì)的教程,需要的朋友可以參考下2019-02-13
- VB6.0過(guò)程屬性怎么設(shè)置?VB6.0中想要設(shè)置過(guò)程屬性,該怎么設(shè)置呢?下面我們就來(lái)看看VB6.0設(shè)置過(guò)程屬性的教程,很簡(jiǎn)單,需要的朋友可以參考下2019-01-31
- VB6.0怎么設(shè)置窗口平鋪方式?VB6.0中的窗口,想要設(shè)置成平鋪的方式,該怎么設(shè)置呢?下面我們就來(lái)看看VB6.0窗口平鋪的教程,需要的朋友可以參考下2019-01-31
- VB6.0工具箱怎么添加拓展控件快捷方式?VB6.0想要要將常用的空間添加到工具箱中方便使用,該怎么添加呢?下面我們就來(lái)看看詳細(xì)的教程,需要的朋友可以參考下2018-10-11
- VB6.0怎么編程窗體卸載事件?VB6.0想要編寫一個(gè)窗體卸載事件,該怎么編寫呢?下面我們就來(lái)看看詳細(xì)的教程,很簡(jiǎn)單,需要的朋友可以參考下2018-10-08