Dadas as notas de T1, T2, P1 e P2 de um aluno de MAC0113, calcular sua média. Dizer se ele passou, ficou de REC ou foi reprovado direto.
Sub MediaMAC113()
Dim T1, T2, P1, P2, Media As Double
T1=Cells(1,1)
P1=Cells(1,2)
T2=Cells(1,3)
P2=Cells(1,4)
Media = (sqr(T1*P1)+sqr(T2*P2))/2
Cells(2,1)=Media
If (Media >= 5.0) Then
Cells(2,2)="passou"
ElseIf (Media >= 3.0) Then
Cells(2,2)="REC"
Else
Cells(2,2)="reprovado"
End If
End Sub