以下是华氏与摄氏之间转换的编程:
Private Sub Command1_Click() '摄氏→华氏
If Trim(Text1.Text) = "" Then Text1.Text = "0"
'调用自定义函数
Label3.Caption = TransTh(Val(Text1.Text), True)
Label4.Caption = "摄氏度
以下是华氏与摄氏之间转换的编程:
Private Sub Command1_Click() '摄氏→华氏
If Trim(Text1.Text) = "" Then Text1.Text = "0"
'调用自定义函数
Label3.Caption = TransTh(Val(Text1.Text), True)
Label4.Caption = "摄氏度