亚洲乱码中文字幕综合,中国熟女仑乱hd,亚洲精品乱拍国产一区二区三区,一本大道卡一卡二卡三乱码全集资源,又粗又黄又硬又爽的免费视频

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

  發(fā)布時(shí)間:2021-12-30 17:28:53   作者:佚名   我要評(píng)論
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)一元二次方程的求解。

首先打開(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)推薦:

VB怎么加密壓縮包rar解密程序?

VB怎么添加菜單欄? VB菜單欄的添加方法

VB怎么編寫給表格快速添加批注的代碼?

相關(guān)文章

  • VB6.0怎么使用ELementHost控件?

    VB6.0怎么使用ELementHost控件?VB6.0中有很多空間,該怎么使用ELementHost控件呢?下面我們就來(lái)看看詳細(xì)的教程
    2021-12-23
  • Visual Basic 6.0(VB6.0)安裝教程詳解

    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怎么使用文件對(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è)置某個(gè)控件的屬性?VB6.0想要設(shè)置控件屬性,該怎么設(shè)置呢?我們可以通過(guò)代碼來(lái)設(shè)置,下面我們就來(lái)看看詳細(xì)的教程,需要的朋友可以參考下
    2019-02-16
  • VB6.0項(xiàng)目怎么添加用戶控件?

    VB6.0項(xiàng)目怎么添加用戶控件?VB6.0編程開(kāi)發(fā)的時(shí)候,想要添加用戶控件,該怎么添加呢?下面我們就來(lái)看看詳細(xì)的教程,需要的朋友可以參考下
    2019-02-13
  • VB6.0過(guò)程屬性怎么設(shè)置?

    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è)置窗口平鋪方式?VB6.0中的窗口,想要設(shè)置成平鋪的方式,該怎么設(shè)置呢?下面我們就來(lái)看看VB6.0窗口平鋪的教程,需要的朋友可以參考下
    2019-01-31
  • VB6.0工具箱怎么添加拓展控件快捷方式?

    VB6.0工具箱怎么添加拓展控件快捷方式?VB6.0想要要將常用的空間添加到工具箱中方便使用,該怎么添加呢?下面我們就來(lái)看看詳細(xì)的教程,需要的朋友可以參考下
    2018-10-11
  • VB6.0怎么編程窗體卸載事件?

    VB6.0怎么編程窗體卸載事件?VB6.0想要編寫一個(gè)窗體卸載事件,該怎么編寫呢?下面我們就來(lái)看看詳細(xì)的教程,很簡(jiǎn)單,需要的朋友可以參考下
    2018-10-08

最新評(píng)論