Ficha 15-1

Private Sub cmd1_Click()

Dim peso(1 To 5) As Single, i As Integer

soma = 0

For i = 1 To 5
peso(i) = Val(InputBox("Introduza o " & i & "º Peso", "Pesos"))
Picture1.Print peso(i) & "kg"
soma = soma + peso(i)
Next i

media = soma / (i - 1)

Picture1.Print "A soma é de: " & soma & "kg"
Picture1.Print "A média dos pesos é: " & media & "kg"

For i = 1 To 5
If peso(i) > media Then
Picture1.Print i & "º peso acima da média com [" & peso(i) & "]kg"
End If
Next i

End Sub