編程計(jì)算一元二次方程的解 vb
Private Sub Command1_Click() '此程序在點(diǎn)擊按鈕Command1中完成
*** a As ***,b As ***,c As *** '定義變量a、b、c為長整型數(shù)
*** d As Single '定義變量d為單精度實(shí)型數(shù)
*** x1 As Single,x2 As Single '定義變量x1和x2為單精度實(shí)型數(shù)
a = InputBox("a=") '將用戶輸入a的值賦值給變量a
b = InputBox("b=") '將用戶輸入b的值賦值給變量b
c = InputBox("c=") '將用戶輸入c的值賦值給變量c
d = *** '求b^2-4ac的值賦值給變量d
'以下語句判斷d的值,若小于0則直接輸出“此方程無解”
'否則,求兩個解x1和x2,并輸出結(jié)果
If *** Then
Text***.Text = "此方程無解" '在對應(yīng)的文本框中輸出提示
Else
X1 = (-b + Sqr(d)) / (2 * a) '計(jì)算x1的值
X2 = (-b - Sqr(d)) / (2 * a) '計(jì)算x2的值
Text***.Text = "此方程的解為：" & "x1=" & x1 & "," & "x2=" & x2 '輸出x1和x2的值
*** '條件語句結(jié)束
End Sub
求大俠改下 跪謝