摄氏度温标与华氏度温标的转换

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