program-10

10. WAP for temperature conversion using option button.

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