Ficha 17-3

Private Sub cmd1_Click()

Dim matriz(1 To 5, 1 To 3), aluno As Integer, nota As Integer, cont As Integer
Dim maior As Integer, positiva As Integer, negativa As Integer, superior As Integer

cont = 0
positiva = 0
negativa = 0
superior = 0

For aluno = 1 To 5
For nota = 1 To 3
matriz(aluno, nota) = Val(InputBox("Introduza a " & nota & "º nota e " & aluno & "º aluno", "Notas"))
Picture1.Print matriz(aluno, nota);
cont = cont + 1
If cont = 3 Then
Picture1.Print Chr(13)
cont = 0
End If
If nota = 1 Then
If matriz(aluno, nota) < 10 Then
negativa = negativa + 1
End If
End If
If nota = 2 Then
If matriz(aluno, nota) > 9 Then
positiva = positiva + 1
End If
End If
If nota = 3 Then
If matriz(aluno, nota) > 16 Then
superior = superior + 1
End If
End If
Next nota
Next aluno

Picture2.Print "Alunos com nota negativa na 1ª prova -> " & negativa
Picture2.Print "Alunos com positiva na 2ª prova -> " & positiva
Picture2.Print "Alunos com nota superior a 16 na 3ª prova -> " & superior

cmd1.Enabled = False
cmd2.Enabled = True

End Sub


Private Sub cmd2_Click()

Picture1.Cls
Picture2.Cls
cmd1.Enabled = True
cmd2.Enabled = False

End Sub

Private Sub cmd3_Click()
End
End Sub