VB编写一个华氏温度与摄氏温度之间转换的程序

Private Sub Command1_Click() Text1 = Val(Text1) * 1.8 + 32End SubPrivate Sub Command2_Click() Text1 = (Val(Text1) - 32) / 1.8End Sub Command1：摄氏度转华氏度 Command2：华氏度转摄氏度