输入一个华氏温度，要求输出摄氏温度。公式为：C=(F-32)×5/9 ，输出要有文字说明，取两位小数

Private Sub Command1_Click()
Dim F, C, N As Double
F = InputBox("请输入需要转换的华氏温度：", "输入")
C = (F - 32) * 5 / 9
N = Left(CStr(C * 100), InStr(1, CStr(C * 100), "."))
If Mid$(CStr(C), InStr(1, CStr(C), ".") + 1, 1) > 4 Then
N = N + 1
End If
N = N / 100
MsgBox N
End Sub