Baixe o app para aproveitar ainda mais
E aí, curtiu este material?
Ajude a incentivar outros estudantes a melhorar o conteúdo
Gostou desse material? Compartilhe! 🧡
55.876 Materiais compartilhados
Baixe o app para aproveitar ainda mais
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
Compartilhar