Ficha5-3

Private Sub cmd1_Click()
Dim a As Single, b As Single, c As Single

a = Val(operA.Text)
b = Val(operB.Text)
c = Val(operC.Text)

If a < b + c And b < a + c And c < a + b Then
resultado1.Caption = "É um Triângulo"
resultado2.Caption = " "
Else
resultado1.Caption = " "
resultado2.Caption = "Não é um Triângulo"
End If

End Sub

Private Sub cmd2_Click()
End
End Sub