eXe

Veredito sobre a media final de um aluno (considerando REC)

Ícone iDevice

Reflexão

Dada a média final de um aluno de MAC0113, dizer se ele passou, ficou de REC ou foi reprovado direto.

Sub VereditoComRec()

Dim nota As Double

nota = Cells(1,1)

If (nota >= 5.0) Then

Cells(1,2) = "passou"

End If

If ((nota < 5.0) And (nota >= 3.0)) Then

Cells(1,2) = "rec"

End If

If (nota < 3.0) Then

Cells(1,2) = "reprovado direto"

End If

End Sub