none
Calcular media aritmetrica RRS feed

  • Pergunta

  • Dim n1, n2, n3, n4 As Integer
    Dim media As Long
    Private Sub Command1_Click()
    n1 = (Text1.Text)
    n2 = (Text2.Text)
    n3 = (Text3.Text)
    n4 = (Text4.Text)
    media = (n1 + n2 + n3 + n4) / 4

    If media <= 4 Then

    Label2.Caption = "Aluno reprovado"
    End If

    nao consigo obter o resultado de aluno reprovado nao sei o porque

    quarta-feira, 13 de março de 2013 04:05

Respostas

  • talvez sua conta esteja fazendo divisão de inteiros e arredondando seus valores...

    procure declarar suas variaveis como double ou verifique se o valor está sendo entrando no if..

    teste com o MessageBox.Show como sugestão

    mais uma obs, o Label2.Text = "Aluno Reprovado" é o modo correto de aplicar...

    abraços !


    Att, Afonso Fernandes.

    • Sugerido como Resposta Pedro82 quinta-feira, 14 de março de 2013 22:18
    • Marcado como Resposta Casimiro Borges Tavares sexta-feira, 15 de março de 2013 01:51
    quarta-feira, 13 de março de 2013 11:08

Todas as Respostas

  • talvez sua conta esteja fazendo divisão de inteiros e arredondando seus valores...

    procure declarar suas variaveis como double ou verifique se o valor está sendo entrando no if..

    teste com o MessageBox.Show como sugestão

    mais uma obs, o Label2.Text = "Aluno Reprovado" é o modo correto de aplicar...

    abraços !


    Att, Afonso Fernandes.

    • Sugerido como Resposta Pedro82 quinta-feira, 14 de março de 2013 22:18
    • Marcado como Resposta Casimiro Borges Tavares sexta-feira, 15 de março de 2013 01:51
    quarta-feira, 13 de março de 2013 11:08
  • deu certo mano obrigado pela ajuda

    sexta-feira, 15 de março de 2013 02:15