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:

if you suspect that your immediate supervisor, department manager, or company is engaging in something unlawful you must do your best to end the misconduct immediately while also protecting yourself, your livelihood, and your family’s future.

the answer is gallery.