温标转换

Option Explicit

Private Sub Command1_Click() '摄氏→华氏

If Trim(Text1.Text) = "" ThenText1.Text = "0"

'调用自定义函数

Label3.Caption = transth(Val(Text1.Text),True)

Label4.Caption = "摄氏度"

Label5.Caption = "华氏度"

End Sub

 

Private Sub Command2_Click() '华氏→摄氏

If Trim(Text1.Text) = "" ThenText1.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

If blnctof 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) '文本框键盘事件过程

'若按键非数字键或回删键，取消按键

If Not IsNumeric(Chr(keyascii)) Andkeyascii <> 8 Then

keyascii = 0

End If

End Sub

        这是我照着实验册上做的一个程序，我觉得这个程序很神奇。而且突然发现，原来VB在生活中的用途是那么的广泛。在做这个程序的时候，我也好好思考了一下，但是我的思维根本就没有那么严谨，可谓是漏洞百出，而且很多程序的应用也是错误的。看来，我还要更加努力才行了！