Ficha 4-2

A pedido de correcção da senhora professora, que acha que o trabalho estava um pouco incompleto aqui está a emenda ..
Private Sub cmd1_Click()

If Val(oper1.Text) < 0 Or Val(oper1.Text) > 20 Or Val(oper2.Text) < 0 Or Val(oper2.Text) > 20 Or Val(oper3.Text) < 0 Or Val(oper3.Text) > 20 Then
situacao.Caption = "Erro"
resultado.Caption = " "
Else

If Val(oper1.Text) < 6.5 Or Val(oper2.Text) < 6.5 Or Val(oper3.Text) < 6.5 Then
situacao.Caption = "Reprovado"
resultado.Caption = " "
Else
resultado.Caption = (Round((Val(oper1.Text) + Val(oper2.Text) + Val(oper3.Text)) / 3, 1))
If resultado < 10 Then
situacao.Caption = "reprovado"
ElseIf resultado >= 10 And resultado < 14 Then
situacao.Caption = "suficiente"
ElseIf resultado >= 14 And resultado < 16 Then
situacao.Caption = "bom"
ElseIf resultado >= 16 And resultado < 18 Then
situacao.Caption = "Bom"
ElseIf resultado >= 18 Then
situacao.Caption = "Muito Bom"
End If
End If
End If

End Sub

Private Sub cmd2_Click()
End
End Sub