1、大型企業(yè)經(jīng)典管理資料模板， WORD文檔，歡迎下載交流實(shí)驗(yàn)報(bào)告3: VB程序設(shè)計(jì)二、計(jì)算二元一次方程。1、目的和要求（1 ）熟練掌握控件的使用。（2 ）復(fù)習(xí)鞏固系統(tǒng)給用戶(hù)提供算數(shù)函數(shù)的用法。2、內(nèi)容和步驟（1）創(chuàng)建窗體Iabel2、Iabel3、Iabel4、三個(gè)窗體formi由二個(gè)命令按鈕 command1、command2、四個(gè)標(biāo)簽labell、 文本框 textl、text2、 text3 組成。I 口 II 回分享一個(gè)蘋(píng)果，各得一個(gè)蘋(píng)果，分享一種思想，各得兩種思想。分享是件快樂(lè)的事件，樂(lè)于分享的人，事業(yè)更容易成功。清除計(jì)算（2）設(shè)計(jì)窗體界面及屬性 屬性設(shè)置：對(duì)象名控件名屬性名屬性值功能

2、comma ndcomma nd1Cap ti on計(jì)算計(jì)算方程Comma nd2Cap ti on清除清除文本框內(nèi)的內(nèi)容labellabel1Cap ti on二次項(xiàng)系數(shù)a提示Label2Cap ti on一次項(xiàng)系數(shù)b提示Label3Cap ti on常數(shù)項(xiàng)c提示text1text1Text空顯示aText2Text空顯示bText3Text空顯示cText4Text空顯示求解結(jié)果(3)編寫(xiě)代碼Private Sub Comma nd1_Click()Dim a As Long, b As Long, c As LongDim d As Long, t As Sin gleDim x1 As

3、 Si ngle, x2 As Sin gle, x3 As Sin gle, x4 As Si ngle經(jīng)典資料，WORD文檔，可編輯修改，歡迎下載交流。a = Val(Textl.Text)b = Val(Text2.Text)c = Val(Text3.Text)If a = 0 The nIf b = 0 The nIf c = 0 The nLabel4.Caption =方程有無(wú)窮多解”ElseLabel4.Caption =方程無(wú)解”End IfElsex1 = (-c) / bLabel4.Ca ption =方程有一個(gè)解:End If& x1Elsed = b * b - 4

4、 * a * ct = Sqr(Abs(d)If (d = 0) Thenx1 = (-b + t) / (2 * a) x2 = (-b - t) / (2 * a)Label4.Ca ption =方程有兩個(gè)實(shí)數(shù)根: Elsex1= & x1 & ” x2= & x2x3 = (-b) / (2 * a)x4 = t / (2 * a)Label4.Ca ption =方程有兩個(gè)復(fù)數(shù)根:End IfEnd Ifx1= & x3 & + & x4 & i & ” x2= & x3 & - & x4 & iEnd SubPrivate Sub Comma nd2_Click()TextI.Text =Text2.Text =Text3.Text =Label4.Ca ption =End Sub（4）保存工程，運(yùn)行程序3、調(diào)試過(guò)程及運(yùn)行結(jié)果二次項(xiàng)系數(shù)0常數(shù)頊C方程有無(wú)窮多解清除I BHHHHHH 計(jì)算二次項(xiàng)系董商一次項(xiàng)的系A(chǔ)b常數(shù)項(xiàng)C方程有兩個(gè)實(shí)敵糧;x1=-2 x2=-2清除計(jì)算4、實(shí)驗(yàn)心得(1) 要把求解過(guò)程中遇到的情況考慮全面。(2) 要善于利用系統(tǒng)提供的計(jì)算函數(shù)。經(jīng)典