15 lines
295 B
Text
15 lines
295 B
Text
|
Class NumberContainer
|
||
|
|
Private TheNumber As Integer
|
||
|
|
Sub Constructor(InitialNumber As Integer)
|
||
|
|
TheNumber = InitialNumber
|
||
|
|
End Sub
|
||
|
|
|
||
|
|
Function Number() As Integer
|
||
|
|
Return TheNumber
|
||
|
|
End Function
|
||
|
|
|
||
|
|
Sub Number(Assigns NewNumber As Integer)
|
||
|
|
TheNumber = NewNumber
|
||
|
|
End Sub
|
||
|
|
End Class
|