Chập chững VBA
phuc_thanhtien > 14-04-16, 04:07 PM
Bạn nào tốt bụng hướng dẫn hoặc làm cho mình cái demo bài tập này với. Cảm ơn nhiều lắm:
Giải và biện luận bx+c=0
Private Sub cmdgiai_Click()
Dim b As Integer, c As Integer
Dim x As Double
b = Val(txtb.Text)
c = Val(txtc.Text)
If b = 0 Then
If c = 0 Then
MsgBox "PT VSN"
Else
MsgBox "PT VN"
End If
Else
x = -c / b
MsgBox x & " la nghiem PT"
End If
End Sub