实现摄氏温度与华氏温度的转换
2012-05-05 13:52
274 查看
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
这个程序是练习册上的习题,在写这个程序的时候,有好多的地方都不能写出来,好多语言都不会,还是有些生涩。
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
这个程序是练习册上的习题,在写这个程序的时候,有好多的地方都不能写出来,好多语言都不会,还是有些生涩。
相关文章推荐
- 实现华氏温度与摄氏温度的转换
- 实现摄氏温度与华氏温度之间的转换
- 实现摄氏温度和华氏温度的相互转换
- 小明去美国旅游,美国温度以华氏温度计量,她需要将华氏温度转换为摄氏温度,编写程序实现此功能. 要求: 从控制台输入华氏温度信息,并且分别打印最后的华氏温度和摄氏温度的结果
- 华氏温度转换摄氏温度程序
- c语言之菜鸟日记一、华氏温度与摄氏温度转换
- 最简单的方式用C表示摄氏温度和华氏温度的转换
- 华氏温度--摄氏温度转换
- GUI华氏温度摄氏温度以及k是温度转换
- 该程序实现摄氏温度转化为华氏温度
- C++华氏温度和摄氏温度转换
- 华氏温度与摄氏温度的转换
- 使用javascript实现华氏温度和摄氏温度的转化
- 将华氏温度转换成摄氏温度或将摄氏温度转化成华氏温度。(需考虑多种不合法的情况尽量转化为合法的)
- 将摄氏温度转换成华氏温度
- java编程之将摄氏温度转换成华氏温度(从对话窗体输入数据)
- 华氏温度与摄氏温度转换简单编程
- 摄氏温度转换华氏温度
- 摄氏温度和华氏温度的转换之java算法
- matplotlib画图基础,华氏温度到摄氏温度的转换