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

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

Ficha nº15 ex. nº2

Private Sub Command1_Click()
Dim vet(5) As Integer, ampt As Single, j As Single, tempalta As Single, tempbaixa As Single
MsgBox "Este programa irá pedir que introduza os valores de 6 temperaturas à sua escolha e depois o programa irá indicar qual é a temperatura mais baixa e a temperatura mais alta e depois irá indicar a amplitude térmica"

For j = 0 To 5
vet(j) = Val(InputBox("Introduza 6 temperaturas"))
Picture1.Print vet(j);
Next j

tempalta = vet(0)
tempbaixa = vet(0)
For j = 0 To 5If tempalta < tempalta =" vet(j)"> vet(j) Then
tempbaixa = vet(j)
End If
Next j

Label2.Caption = tempalta
Label4.Caption = tempbaixa
ampt = tempalta - tempbaixa
Label6.Caption = ampt
End Sub


Private Sub Command2_Click()
Picture1.Cls
Label2.Caption = ""
Label4.Caption = ""
Label6.Caption = ""
End Sub