Modulo 10

Programação Orientada a Objectos

Código respectivo ao botão calcular média
Private Sub cmdMedia_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdMedia.Click
        Dim notaM, soma As Integer
        Dim nome As String
        '----------Nomes--------'
        Nomes(0) = Textnome1.Text
        Nomes(1) = Textnome2.Text
        Nomes(2) = Textnome3.Text
        Nomes(3) = Textnome4.Text
        Nomes(4) = Textnome5.Text
        '----------Notas---------'
        Notas(0) = Textvalor1.Text
        Notas(1) = Textvalor2.Text
        Notas(2) = Textvalor3.Text
        Notas(3) = Textvalor4.Text
        Notas(4) = Textvalor5.Text
        '--------Média-----------'
        For cont = 0 To 4
            soma = soma + Notas(cont)
        Next
        lbMedia.Text = soma / 5
        notaM = Notas(0)
        nome = Nomes(0)
        '---------Melhor Nota---------'
        For cont = 1 To 4
            If Notas(cont) > notaM Then
                notaM = Notas(cont)
                nome = Nomes(cont)
            End If
        Next
        '-----------------------------------------Mensagem----------------------------------------'
        MsgBox("O " & nome & " teve a melhor nota: " & notaM, MsgBoxStyle.Information, "Nota Maior")
        
    End Sub
End Class
 Download do Programa Vectores