VB温度转换

来源：百度知道 编辑：UC知道 时间：2024/05/21 10:00:21
F=9/5C+32
C=5/9(F-32)
要求用按钮实现转换。即单击“华氏转”按钮，将摄氏度转化为华氏温度。同样，单击“摄氏转”按钮，则将华氏温度转化为摄氏温度。

Private Sub Command1_Click()
C = Val(Text1.Text)
F = 9 * C / 5 + 62
Text2 = F
End Sub

Private Sub Command2_Click()
F = Val(Text1.Text)
C = 5 * (F - 32) / 9
Text2 = C
End Sub

'建立控件Command1，Command2，text1（存摄氏），text2（存华氏）
Private Sub Command1_Click()
C = Val(Text1.Text)
F = 9 * C / 5 + 62
Text2.Text = F
End Sub

Private Sub Command2_Click()
F = Val(Text2.Text)
C = 5 * (F - 32) / 9
Text1 .Text= C
End Sub