Option Explicit
Private Sub Command1_Click() '摄氏-华氏
If Trim(Text1.Text) = "" Then Text1.Text = "0"
'调用自定义函数
Label3.Caption = transth(Val(Text1.Text), True)
Label4.Caption = "华氏度"
Label5.Caption = "摄氏度"
End Sub
Private Sub Command2_Click() '华氏-摄氏
If Trim(Text1.Text) = "" Then Text1.Text = "0"
'调用自定义函数
Label3.Caption = transth(Val(Text1.Text), False)
Label4.Caption = "华氏度"
Label5.Caption = "摄氏度"
End Sub
'自定义函数:摄氏温标与华氏温标相互转换
Private Function transth(sngT As Single, blnctof As Boolean) As String
If blnctof Then
transth = Format(sngT * 9 / 5 + 32, "0.#") '摄氏-华氏
Else
transth = Format((sngT - 32) * 5 / 9, "0.#") '华氏-摄氏
End If
End Function
Private Sub text1_keypress(keyascii As Integer) '文本框键盘事件过程
'若按键非数字或回删键,取消按键
If Not IsNumeric(Chr(keyascii)) And keyascii <> 8 Then
keyascii = 0
End If
End Sub