温标转换

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