Ficha15 ex. nº1

Private Sub Command1_Click()
Dim vet(4) As Integer, p As Integer, soma As Integer, peso As Singlesoma = 0
MsgBox "Este programa irá pedir que introduza 5 pesos de 5 pessoas e depois irá fazer a soma e a média dos 5 pesos"

For p = 0 To 4 vet(p) = Val(InputBox("Digite o peso de 5 pessoas"))
Picture1.Print vet(p);
soma = soma + vet(p)
Next p

media = soma / 5
Label3.Caption = soma
Label5.Caption = media

For p = 0 To 4 If vet(p) >= media Then
Picture2.Print vet(p);
End If
Next p
End Sub