實(shí)驗(yàn)報(bào)告VB程序設(shè)計(jì)

1、實(shí)驗(yàn)報(bào)告程序設(shè)計(jì)實(shí)驗(yàn)報(bào)告3 : VB程序設(shè)計(jì)二、計(jì)算二元一次方程。1、目的和要求 1熟練掌握控件的使用。2復(fù)習(xí)穩(wěn)固系統(tǒng)給用戶提供算數(shù)函數(shù)的用法。2、內(nèi)容和步驟label4 、1 創(chuàng)立窗體窗體 forml 由二個(gè)命令按鈕 command1、command2、四個(gè)標(biāo)簽 labell、Iabel2、Iabel3 個(gè)亦二次項(xiàng)系數(shù)a:：一次項(xiàng)的系數(shù)b :：;常數(shù)項(xiàng)c:計(jì)算 ：；： 去除文本框 textl、 text2、 text3 組成。2設(shè)計(jì)窗體界面及屬性屬性設(shè)置:對(duì)象名控件名屬性名屬性值功能comma ndcomma nd1Capti on計(jì)算計(jì)算方程Comma nd2Capti on去除去除文本框

2、內(nèi)的內(nèi)容labellabel1Capti on二次項(xiàng)系數(shù)a提示Label2Capti on一次項(xiàng)系數(shù)b提示Label3Capti on常數(shù)項(xiàng)c提示text1text1Text空顯示aText2Text空顯示bText3Text空顯示cText4Text空顯示求解結(jié)果3 編寫代碼Private Sub Comma nd1_Click()Dim a As Long, b As Long, c As Long Dim d As Long, t As Sin gleDim x1 As Single, x2 As Single, x3 As Single, x4 As Singlea = Val(Tex

3、t1.Text) b = Val(Text2.Text) c = Val(Text3.Text)If a = 0 ThenIf b = 0 Then方程有兩個(gè)實(shí)數(shù)根： x1=" & x1 & " x2=" & x2If c = 0 ThenLabel4.Caption = " ElseLabel4.Caption = " End IfElsex1 = (-c) / b Label4.Caption = " End IfElsed = b * b - 4 * a * c t = Sqr(Abs(d) If (d

4、>= 0) Then x1 = (-b + t) / (2 * a) x2 = (-b - t) / (2 * a) Label4.Caption = " Else x3 = (-b) / (2 * a) x4 = t / (2 * a) Label4.Caption = "方程有無窮多解 "方程無解 "方程有一個(gè)解： " & x1& "i" End If End If方程有兩個(gè)復(fù)數(shù)根：x1=" & x3 & "+" & x4 & "i" & " x2=" & x3 & "-" & x4End SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Label4.Caption = ""En