1
Crear un nuevo módulo de clase y el nombre de FractionClass.cls .
2
definir variables para la clase . Estas variables serán responsables de guardar el numerador y el denominador de los valores .
M_Numerator Private As Long
m_Denominator Private As Long
3
Inicializar la fracción. Esto tomará una cadena en forma de A /B y prepararlo para ser dividido en valores diferentes. separan al poner el A en m_Numerator y el B en m_Denominator .
Sub FromString txt ( ByVal como secuencia)
piezas Dim
Públicas () As String
piezas = Parcial (txt , "/" )
m_Numerator = CLng ( piezas ( 0 ) ) guía
m_Denominator = CLng ( piezas ( 1 ) ) guía
Simplifique
End Sub
Public Property Get numerador ( ) As Long
Numerador = Que m_Numerator
End propiedad en
público de la Propiedad numerador (valor ByVal As Long )
m_Numerator = valor
Simplifique
End propiedad en
Public Property Get Denominador ( ) As Long
Denominador = m_Denominator
< p > Fin propiedad en
Public Property Let denominador (valor ByVal As Long )
m_Denominator = valor
Simplifique
End Property
4
Separe los .
SetValues Public Sub ( numer ByVal As Long , ByVal como denominador _
largo A y B de la cadena A /B en el m_Numerator y las variables m_Denominator , respectivamente )
m_Numerator = numer
m_Denominator = denom
Simplifique
End Sub
5
Crear una función Invertir () que tendrá una cadena a /B e invertir en el valor recíproco B /A.
Función Pública invertir () Como Fracción
resultado Dim As New Fracción
resultado . SetValues m_Denominator , m_Numerator
Conjunto Invertir = resultado
End Function
6
Acceso a la función de las fracciones de su código fuente principal en cualquier momento invertido usándolo Invertir ( ) con una cadena . Tome nota de que la variable que contiene la cadena debe ser en forma de datos de largo .