使用VB來解一元二次方程式(判斷指令IF)

使用VB來寫一個解一元二次方程式的程式, 流程圖如上，程式碼如下

使用到的物件有 text1,text2,text3,command1,command2,form1,label1~lbael5

X1 就是 label6   X2 就是 label7

其程式碼如下:

Private Sub Command1_Click()

'=====================
'  解 一元二次方程式
'=====================
' aX^2+bx+c=0

' 輸入 a,b,c

a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)

' 判別式

d = b ^ 2 - 4 * a * c

If d >= 0 Then

  ' 有實根
  X1 = (-b + d ^ 0.5) / (2 * a)
  X2 = (-b - d ^ 0.5) / (2 * a)
Else
  ' 有虛根
  X1 = (-b + (-d) ^ 0.5) / (2 * a) & " i"
  X2 = (-b - (-d) ^ 0.5) / (2 * a) & " i"
End If

End Sub

Private Sub Command2_Click()

' 程式結束
 End
End Sub