Ficha nº15 ex. nº3

Private Sub Command1_Click()
Dim vet(4) As Integer, j As Integer, p As Integer, custo As Single, resultado As Single

MsgBox "Este programa irá pedir que o utilizador introduza 5 preços de 5 artigos e depois o programa irá aumentar o preço de cada um dos produtos em 5%"

custo = 0

For j = 0 To 4
vet(j) = Val(InputBox("Introduza 5 preços de 5 artigos"))
resultado = vet(j) + vet(j) * 0.05
Picture1.Print vet(j);
Picture2.Print resultado;
Next j
End Sub

Private Sub Command2_Click()
Picture1.Cls
Picture2.Cls
End Sub

Private Sub Command3_Click()
End
End Sub