Ficha nº13

1.

Código:

Private Sub Command1_Click()

    Dim pesos(1 To 5) As Single, i As Integer, soma As Single, media As Single

    

    soma = 0

    

    For i = 1 To 5

        pesos(i) = Val(InputBox("Introduza o " & i & " peso:", "Entrada de dados"))

        soma = soma + pesos(i)

    Next i

    

    media = Round(soma / 5, 1)

    

    For i = 1 To 5

        If pesos(i) > media Then

            Picture1.Print pesos(i)

        End If

    Next i

End Sub

2.

Código:

Private Sub Command1_Click()

    Dim temperaturas(1 To 6) As Integer, i As Integer, temp_elev As Integer, temp_bai As Integer, ampl_termica As Integer

    

    temp_elev = 0

    temp_bai = 100

    

    For i = 1 To 6

        temperaturas(i) = Val(InputBox("Introduza a " & i & " temperatura:", "Entrada de dados"))

        If temperaturas(i) > temp_elev Then

            temp_elev = temperaturas(i)

        ElseIf temperaturas(i) < temp_bai Then

            temp_bai = temperaturas(i)

        End If

    Next i

    

    ampl_termica = temp_elev - temp_bai

    

    MsgBox "A temperatura mais elevada é " & temp_elev & ", a temperatura mais baixa é " & temp_bai & " e a amplitude térmica é " & ampl_termica, vbInformation, "Saida"

    

End Sub

3.

Código:

Private Sub Command1_Click()

    Dim precos(1 To 5) As Single, precos_alt(1 To 5) As Single, i As Integer

    Const AUMENTO = 0.05

    For i = 1 To 5

        precos(i) = Val(InputBox("Introduza o preço do " & i & " artigo:", "Entrada de dados"))

        precos_alt(i) = (precos(i) * AUMENTO) + precos(i)

    Next i

    

    For i = 1 To 5

        Picture1.Print precos_alt(i)

    Next i

End Sub