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_1 = InputBox("digite n1") nota_2 = InputBox("digite n2") nota_3 = InputBox("digite n3") Media = (nota_1 + nota_2 + nota_3) / 3 MsgBox (Media) End Sub
Compartilhar