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

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