vb摄氏度和华氏度转换
来源:互联网 发布:无线网卡mac修改软件 编辑:程序博客网 时间:2024/04/29 08:02
代码如下:
Option Explicit
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 = "华氏度"
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
KeyAscii = 0
End If
End Sub
- vb摄氏度和华氏度转换
- 摄氏度和华氏度转换
- 摄氏度和华氏度的转换
- 程序设计:摄氏度和华氏度间的转换
- 摄氏度和华氏度间的转换程序设计
- 摄氏度转换华氏度
- 摄氏度转换华氏度
- 摄氏度转换成华氏度
- 华氏度 摄氏度 温度转换
- C++_华氏度转换摄氏度
- 摄氏度到华氏度的转换
- 摄氏度到华氏度得转换
- 摄氏度华氏度转换(java)
- c语言摄氏度华氏度转换
- 第四周摄氏度转换华氏度
- 摄氏度温标与华氏度温标的转换
- 摄氏度与华氏度之间的转换
- 将摄氏度转换为华氏度程序
- 应该学着写点东东的
- u-boot启动代码start.S详解
- 浅谈OK6410 android系统的烧写过程
- ubuntu11.04安装ngnix
- 投资精髓:专注.专注..专注...
- vb摄氏度和华氏度转换
- Cornell大学机器视觉
- C#控件遍历(获取控件名)
- 固定表和行头与列头
- C语言深度解剖(精讲版)——读书笔记4 &&自己的一些理解
- 两个数显示其中较大的数
- Microsoft Visual Studio 2010 编译出现“GenerateResource”任务意外失败的解决方法
- Linux 中的计时
- Struts 2的工作原理