VBA Aprovado ou Reprovado

•

UNINASSAU RECIFE

14

1

14

1

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.501 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 aprovação() 
Dim nota_1 As Single, nota_2 As Single, nota_3 As Single, nota_4 As Single 
nota_1 = InputBox("digite n1") 
nota_2 = InputBox("digite n2") 
nota_3 = InputBox("digite n3") 
nota_4 = InputBox("digite n4") 
Media = (nota_1 + nota_2 + nota_3 + nota_3) / 4 
MsgBox (Media) 
If Media > 7 Then 
MsgBox ("Aprovado") 
Else 
MsgBox ("Reprovado") 
End If 
End Sub