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
Programmazione © www.354353.com