实现华氏温度与摄氏温度的转换

Option Explicit

Private Sub Command1_Click()

   IfTrim(Text1.Text) = "" Then Text1.Text = "0"

  Label3.Caption = transth(Val(Text1.Text), True)

  Label4.Caption = "摄氏度"

  Label5.Caption = "华氏度"

End Sub

 

Private Sub Command2_Click()

   IfTrim(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

   Ifblnctof 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 AsInteger)

   IfNot IsNumeric(Chr(keyascii)) And keyascii <> 8 Then

     keyascii = 0

  End If

End Sub