Ficha5-4

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 And c = a And b = c Then
resultado1.Caption = "Triangulo Equilátero"
resultado2.Caption = " "
resultado3.Caption = ""
ElseIf b = a Or c = a Or b = c Then
resultado2.Caption = "Triangulo Isósceles"
resultado1.Caption = " "
resultado3.Caption = " "
Else
resultado3.Caption = "Triangulo Escaleno"
resultado1.Caption = " "
resultado2.Caption = " "
End If

End Sub