14 lines
295 B
Text
14 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
|