Aula 5 // projeto 1

 Fahrenheit para Celsius 

1 Form                   Caption

1 Frame                 Caption

3 Label                  Caption 

3 TextBox              Text

3 Command          Caption

f = Val (Text1 . Text)

c = (5/9) * (f - 32)

Text2 . Text = c

If c < 20 Then

     Text3 . Text = “Dia frio”

ElseIf c >= 20 And c <= 23 Then

     Text3 . Text = “Dia agradável”

Else

      Text3 . Text = “Dia quente” 

End If