VB_2014_SLIP 20

 

SLIP 20_1

Option Explicit

Dim temp As Integer

Private Sub Command1_Click()

temp = Val(Text1.Text)

Dim F As Integer

F = temp * 9 / 5 + 32

Label1.Caption = "Temp in F is "& F

End Sub

Private Sub Command2_Click()

temp = Val(Text1.Text)

Dim C As Integer

C = (temp - 32) * 5 / 9

Label1.Caption = "Temp in C is "& C

End Sub

Private Sub Text1_Click()

Text1.Text = ""

End Sub