摄氏度与华氏度之间的转换

最新推荐文章于 2022-07-02 11:00:00 发布

vanvae

最新推荐文章于 2022-07-02 11:00:00 发布

阅读量739

点赞数

分类专栏： vb作业文章标签： command integer function string

本文链接：https://blog.csdn.net/vanvae/article/details/7547712

版权

vb作业专栏收录该内容

12 篇文章 0 订阅

订阅专栏

代码如下：

Option Explicit

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 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 Sub Text1_KeyPress(KeyAscii As Integer)

If Not IsNumeric(Chr(KeyAscii)) And KeyAscii <> 8 Then
KeyAscii = 0
End If

End Sub