Private Sub Command1_Click()
a = Val(InputBox("a=", "输入参数a"))
b = Val(InputBox("b=", "输入参数b"))
c = Val(InputBox("c=", "输入参数c"))
If a + c = 0 Then
   MsgBox ("此方程无解")
Else
x = b / (a + c)
y = c * b / (a + c)
Print "x="; x, "y="; y
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Command3_Click()
Cls
End Sub
Private Sub Form_Load()
End Sub