VB程序温度转换

'按照这两条公式算就行了

'F=(C×9/5)+32

'C=(F-32)×5/9

'式中F--华氏温度,C--摄氏温度

'计算华氏温度

Private Sub Command1_Click()

Dim F, C

C = Val(Text1.Text)

F = (C * 9 / 5) + 32

MsgBox "华氏温度为" &CStr(F)

End Sub'计算摄氏温度

Private Sub Command2_Click()

Dim F, C

F = Val(Text2.Text)

C = (F - 32) * 5 / 9

MsgBox "摄氏温度为" &CStr(C)

End Sub

Private Sub Command1_Click()Text1 = Val(Text1) * 1.8 + 32End SubPrivate Sub Command2_Click()Text1 = (Val(Text1) - 32) / 1.8End Sub

Command1：摄氏度转华氏度

Command2：华氏度转摄氏度

---