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... podem me dar uma ajuda estou a programar no vb 6

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

Todas as Respostas

  • Casimiro,

    Coloque, ao invés de Label2.Caption, o código abaixo:

    ...
    Dim style As MsgBoxStyle
    Dim response As MsgBoxResult
    msg = "Aluno Reprovado!"   ' Define a mensagem.
    style = MsgBoxStyle.Ok
    title = "Resultado"   ' Define o título.
    
    ...
    
    If media <= 4 Then
    
    response = MsgBox(msg, style, title)
    
    End If

    Espero ter ajudado.

    Grande abraço!!!

    sábado, 16 de março de 2013 22:01
  • Boa tarde, faz um Else que dá certo:

    If media <= 4 Then
       Label2.Text = "Aluno reprovado"
    Else
       Label2.Text = "Aluno aprovado"
    End If


    segunda-feira, 18 de março de 2013 16:44