eXe

Veredito sobre a media final de um aluno (simples)

Ícone iDevice

Reflexão

Dada a média final de um aluno de MAC0113, dizer se ele passou ou não.

Sub VereditoSimples()

Dim Nota As Double

Nota = Cells(1,1)

If (Nota >= 5.0) Then

Cells(1,2) = "passou"
Else

Cells(1,2) = "nao passou"

End If

End Sub