Calcular media aritmetrica

Question

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

Answer 1

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!!!

Answer 2

Boa tarde, faz um Else que dá certo:

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