【正确答案】Public Sub p1()
     Dim f As Single，c As Single
     f=InputBox("请输入华氏温度：")
     C=5*(f-32)/9
     MsgBox"摄氏温度为："&c
   End Sub

【答案解析】本题考查的知识点是输入函数InputBox和输出函数MsgBox的使用，以及表达式的正确书写。该过程运行时变量f保存已知的华氏温度，变量C保存计算的结果摄氏温度。其中变量f用InputBox函数由键盘输入，然后代入给定的计算公式计算得到结果C，最后用MsgBOX函数输出结果。注意表达式中的乘号“*’不可以省略。