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