Write a VB program to convert a temperature from Celsius to Fahrenheit and vice versa.

Dim c As Double

Dim f As Double

Private Sub CmdClr_Click()

TxtInput.Text = “”

TxtInput.SetFocus

End Sub

Private Sub Command1_Click()

c = Val(TxtInput.Text)

If Val(c) = 0 And TxtInput = “” Then

MsgBox “Enter Any number”, vbInformation, “Result”

TxtInput.SetFocus

Else

f = 9 * c \ 5 + 32

MsgBox “Fahrenheit :” & ” ” & f, vbInformation, “Result”

End If

End Sub

Private Sub Command2_Click()

f = Val(TxtInput.Text)

If Val(c) = 0 And TxtInput = “” Then

MsgBox “Enter Any number”, vbInformation, “Result”

TxtInput.SetFocus

Else

c = (f – 32) * 5 \ 9

MsgBox “Celsius :” & ” ” & c, vbInformation, “Result”

End If

End Sub

Explanation: