segunda-feira, 25 de fevereiro de 2013

Média de 4 notas no VB.NET!

Monte o form como na imagem abaixo:


Codificação no botão calcule a média:

        Dim n1, n2, n3, n4, media As Integer
        Dim nome As String
        nome = InputBox("Digite o nome do aluno")
        n1 = InputBox("Digite a nota 1")
        n2 = InputBox("Digite a nota 2")
        n3 = InputBox("Digite a nota 3")
        n4 = InputBox("Digite a nota 4")
        media = (n1 + n2 + n3 + n4) / 4
        MsgBox("A média de suas notas é: " + CStr(media))

Codificação do botão sair:

       Me.Close()

Explicação, declaramos as variáveis e usamos a função inputbox para "pegar" os valores. Calculamos a média e mostramos na função msgbox.

Nenhum comentário:

Postar um comentário