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

    Pessoal Paz do Senhor 

    Este é um programa para calcular   a media artimetrica mais o grande problema que estou  a encontrar é que ele nao mostra a mensagem de aluno reprovado no label... esta a me dar dor de cabeca ajudem por favor

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

Respostas

  • Linha incorreta: Caption até onde sei é do Label do Delphi

    Label2.Caption = "Aluno reprovado"

    Altere para

    Label2.Text = "Aluno reprovado"



    Leonardo Garcia
    pensouweb@hotmail.com


    quarta-feira, 13 de março de 2013 11:17