Dim a As Single
a = Val(InputBox("输入摄氏"))
a= a * 9/5 + 32
MsgBox "华氏温度为" & Str(a)