This preview shows pages 1–2. Sign up to view the full content.
This preview has intentionally blurred sections. Sign up to view the full version.View Full Document
Unformatted text preview: End Function Funtion GetGenre ( ) as String Set GetGenre = genre End Function Subprogram SetLength ( length) Set Length = Length End Subprogram Subprogram SetGenre (Genre) Set Genre = Genre End Subprogram End Class Class DVD Length as Real Genre as Real SubProgram NewDVD ( Length, Genre) Call SetLength (length) Call SetGenre (genre) End Subprogram Function GetLength ( ) as Real Set GetLength = length End Function Function GetGenre ( ) as String Set GetGenre = genre End Function Subprogram SetLength ( length) Set Length = length End Program Subprogram SetGenre ( genre) SetGenre = genre End Subprogram End Class...
View Full Document
This note was uploaded on 11/07/2011 for the course IT 240 242 taught by Professor Some during the Spring '10 term at University of Phoenix.
- Spring '10