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