Monte o form como na imagem abaixo:
Codificação no botão calcule a média:
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