Question

输入华氏温度F,转换成摄氏温度C,并用消息框给出提示信息.华氏温度与摄氏温度的转换公式为： C=5/9*(F-

Answer 1

Private Sub Command1_Click()

Dim x As Single

x = Val(Text1.Text)

Text2.Text = (5 / 9) * (x - 32)

Select Case Val(Text2.Text)

Case Is > 40

MsgBox "HOT"

Case Is > 30

MsgBox "WARM"

Case Is > 20

MsgBox "ROOM TEMPERATURE"

Case Is > 10

MsgBox "COOL"

Case Is > 0

MsgBox "cold"

Case Is