VB6.0如何實現一元二次方程的求解? 用vb求一元二次方程的根
在VB6.0編程中，我們可以解決很多數學上的問題，極大的方便瞭我們的數學計算，下面我們就來看看求解一元二次方程是一個經典例子，在國傢計算機二級中也常考，今天我們就詳細介紹如何用VB6.0編程實現一元二次方程的求解。
VB 6.0中文企業版免費下載(206M)
- 類型：編譯工具
- 大小：206MB
- 語言：簡體中文
- 時間：2020-01-08
查看詳情
首先打開VB6.0軟件，在打開的界面上，點擊【標準exe】按鈕，建立一個標準的exe可執行文件，然後點擊【打開】，如圖所示。
然後，可以看到，界面上新彈出來一個Form1，在這個Form1裡面，可以進行界面的設計及對應代碼的編寫，如圖所示。
我們根據一元二次方程的公式，需要3個系數，這裡分別設為a，b，c，然後我們需要兩個實數解的輸出結果，這裡設置為x1，x2，然後加上相應的文本框及計算按鈕，這些控件都在左側工具箱裡可以找到，隻需點擊某個控件，然後在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是用於計算是否存在實數解。
Private Sub Command1_Click()
a = Text1.Text: b = Text2.Text: c = Text3.Text
R = b ^ 2 - 4 * a * c
If R < 0 Then
MsgBox ("方程無實數根！")
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
以上代碼是計算，點擊按鈕後，能否存在實數解，以及如果存在實數解，就計算出來，將結果賦值給對應的文本框。
全部編輯完成之後，我們點擊上方的【運行】按鈕，然後再點擊下方的【啟動】按鈕，啟動程序，如圖所示。
在啟動的窗口中，分別輸入三個系數，a，b，c，然後點擊【計算】按鈕。如果存在實數解，則會在右側文本框輸出，如果不存在，會彈框提醒不存在。
如果覺得有用，記得點贊或投票支持！
註意事項：
需要控制好，所有系數的輸入必須是數字。需要先判斷有無實數解，再計算值。
以上就是用vb求一元二次方程的根，希望大傢喜歡，請繼續關註GuideAH。
相關推薦：
VB怎麼加密壓縮包rar解密程序?
VB怎麼添加菜單欄? VB菜單欄的添加方法
VB怎麼編寫給表格快速添加批註的代碼?