Die Visual Basic (VB) Programmiersprache kommt mit einer Schar von integrierten Funktionen für die Herstellung einfache Berechnungen wie Addition, Subtraktion , Multiplikation und Division von ganzen Zahlen . Leider ist nicht zu VB Fraktion freundlich, dass alle Berechnungen mit rationalen Zahlen manuell vorgenommen werden müssen. Der beste Weg, dies zu tun ist , indem Sie eigene Fraktion Klasse und Einbettung mit einer Funktion, die Fraktionen umkehren wird . Anleitung
1

Erstellen Sie eine neue Klasse Modul und nennen Sie es FractionClass.cls .
2

definieren Variablen für die Klasse. Diese Variablen sind verantwortlich für die Speicherung der Zähler und Nenner Werte .

Privat m_Numerator As Long

Privat m_Denominator As Long
3

initialisieren Fraktion . Dadurch wird eine Zeichenkette in der Form A /B zu und bereiten sie in getrennte Werte geteilt werden. trennen Sie es , indem Sie den in A und B m_Numerator in m_Denominator .

Public Sub FromString (ByVal txt As String) Dim

Stücke () As String

Stück = Split (txt , "/")

m_Numerator = CLng (Stück (0))

m_Denominator = CLng (Stück ) (1)

Vereinfachen

End Sub