Il Basic ( VB) linguaggio di programmazione visiva viene fornito con uno stuolo di funzioni integrate per fare calcoli semplici come l' addizione, sottrazione , moltiplicazione e divisione di numeri interi . Purtroppo , VB non è troppo frazione amichevole , in quanto tutti i calcoli che coinvolgono numeri razionali devono essere fatte manualmente . Il modo migliore per farlo è attraverso la creazione di una propria classe frazione e incorporarlo con una funzione che inverte frazioni. Istruzioni
1

creare un nuovo modulo di classe e il nome FractionClass.cls .
2

definire le variabili per la classe. Queste variabili saranno responsabili per la memorizzazione dei valori numeratore e denominatore .

M_Numerator privati, purché

m_Denominator privati, purché
3

Inizializzare la frazione . Questo richiederà una stringa sotto forma di A /B e prepararla ad essere diviso in valori separati . separano mettendo la A in m_Numerator e la B in m_Denominator .

Public Sub FromString ( ByVal txt As String ) per

pezzi Dim () As String

pezzi = Split ( txt , " /" ) per

m_Numerator = CLng ( pezzi ( 0 ) ) per

m_Denominator = CLng ( pezzi ( 1 ) ) per

semplificare

End Sub