功率因数计算器 VB6.0源代码

Private Sub Command1_Click()
Dim x As Single
Dim y As Single
Dim result As Single
Dim resultS As Single
On Error GoTo ErrStep
x = CDbl(Text1st.Text)
y = CDbl(Text2nd.Text)
result = x / (Sqr(x * x + y * y))
resultS = Sqr(x * x + y * y)
TextResult.Text = CSng(result)
TextResultS.Text = CSng(resultS)
Exit Sub
ErrStep: TextResult.Text = "¼ÆËã´íÎó"
         TextResultS.Text = "¼ÆËã´íÎó"
End Sub

Private Sub Command2_Click()
    Text1st.Text = " "
    Text2nd.Text = " "
    TextResult.Text = " "
    TextResultS.Text = " "
End Sub

Private Sub Text1st_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
     Case 48 To 57, 46, 8, 13
     Case Else
        KeyAscii = 0