输入华氏温度F,转换成摄氏温度C,并用消息框给出提示信息.华氏温度与摄氏温度的转换公式为: C=5/9*(F-
输入华氏温度F,转换成摄氏温度C,并用消息框给出提示信息.华氏温度与摄氏温度的转换公式为: C=5/9*(F-32)
提示信息:
C>40时,提示“HOT”;
30
20
10
0
C<=0时,提示“FREEZING”
该题目做完后保存时,窗体文件和工程文件都命名为V3.
我的编写是这样的:
Private Sub Command1_Click()
Dim x As Single
x = Val(Text1.Text)
Text2.Text = (5 / 9) * (x - 32)
Select Case Text2.Text
Case Text2.Text > 40
MsgBox "HOT"
Case Text2.Text <= 40 And Text2.Text > 30
MsgBox "WARM"
Case Text2.Text > 20 And Text2.Text <= 30
MsgBox "ROOM TEMPERATURE"
Case Text2.Text > 10 And Text2.Text <= 20
MsgBox "COOL"
Case Text2.Text > 0 And Text2.Text <= 10
MsgBox "cold"
Case Text2.Text <= 0
MsgBox "FREEZING"
End Select
为什么它就没有消息框显示呢?