f.cls

vb编写的

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "f"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public x As Single
Public y As Single
Private sit As Single

Public Property Get s() As Single
    If sit <> -9999 Then
        s = sit
    Else
        If x <> 0 Then
            s = Atn(y / x)
        Else
            If y > 0 Then
                s = 0.5
            Else
                s = 1.5
        End If
    End If
End Property
Public Property Let s(s2 As Single)
    sit = s2
    x = Cos(sit)
    y = Sin(sit)
End Property

Private Sub Class_Initialize()
sit = -9999
End Sub
Public Property Get m() As Single
    If y = 0 And x <> 0 Then
        m = x
    ElseIf x = 0 And y <> 0 Then
        m = y
    Else
        m = Sqr(x * x + y * y)
    End If
End Property