VBA do Tipo de Triângulo

•

UNINASSAU RECIFE

14

0

14

0

Estudante PD

05/04/2014

Faça como milhares de estudantes: teste grátis o Passei Direto

Esse e outros conteúdos desbloqueados

16 milhões de materiais de várias disciplinas

Impressão de materiais

Agora você pode testar o

Passei Direto grátis

Você também pode ser Premium ajudando estudantes

E aí, curtiu este material?

Ajude a incentivar outros estudantes a melhorar o conteúdo

Gostou desse material? Compartilhe! 🧡

Programação I

55.518 Materiais compartilhados

Baixe o app para aproveitar ainda mais

Leia os materiais offline, sem usar a internet. Além de vários outros recursos!

Prévia do material em texto

Sub Triangulo() 
 Dim l1 As Single, l2 As Single, l3 As Single 
 l1 = InputBox("Digite o lado 1") 
 l2 = InputBox("Digite o lado 2") 
 l3 = InputBox("Digite o lado 3") 
 If l1 < l2 + l3 And l2 < l1 + l3 And l3 < l1 + l2 Then 
 MsgBox ("Triângulo válido") 
 If l1 = l2 And l2 = l3 Then 
 MsgBox ("Equilátero") 
 ElseIf l1 <> l2 And l2 <> l3 And l1 <> l3 Then 
 MsgBox ("Escaleno") 
 Else 
 MsgBox ("Isósceles") 
 End If 
 Else 
 MsgBox ("Triângulo inválido") 
 End If 
End Sub