Class Course
    Public Sub New(id As String, title As String, creditHours As Integer, description As String, prerequisiteCourse As String)
		Me.CourseID = id
		Me.CourseTitle = title
		Me.CreditHours = creditHours
		Me.Description = description
		Me.PrerequisiteCourse = prerequisiteCourse
	End Sub
 
 
	Public CourseID As String
	Public CourseTitle As String
	Public CreditHours As Integer
	Public Description As String
	Public PrerequisiteCourse As String
End Class
Class CourseList
	Public CourseArray As Course() = {New Course("CIS 400", "OO Analysis & Design", 4, "Important class", "CIS 110"), New Course("CIS 150A", "VB.NET Programming", 4, "Good Introduction to programming", "CIS 100"), New Course("CIS 150B", "C# Programming with labs", 4, "Follow-up to CIS 100", "CIS 100")}
 
 
	Public Function GetCourseByCourseID(id As String) As Course
		If Not String.IsNullOrEmpty(id) Then
			For Each course As var In CourseArray
				If course.CourseID = id Then
					Return course
				End If
			Next
		End If
		Return Nothing
	End Function
End Class
Class CourseListTest
	Public Shared Sub Main(args As String())
		GetCourseByCourseIDTestWhenCourseExists()
		GetCourseByCourseIDTestWhenCourseDoesNotExist()
	End Sub
 
 
	Public Shared Sub GetCourseByCourseIDTestWhenCourseExists()
 
		Dim myCourseList As New CourseList()
		Dim myCourse As Course = myCourseList.GetCourseByCourseID("CIS 400")
		If myCourse.CourseID <> "CIS 400" Then
			System.Console.WriteLine("ERROR - GetCourseByCourseIDTestWhenCourseExists(): Returned CourseID Not equal (CIS 400)")
		End If
	End Sub
 
	Public Shared Sub GetCourseByCourseIDTestWhenCourseDoesNotExist()
 
		Dim myCourseList As New CourseList()
		Dim myCourse As Course = myCourseList.GetCourseByCourseID("CIS 101")
		If myCourse IsNot Nothing Then
			System.Console.WriteLine("ERROR - GetCourseByCourseIDTestWhenCourseDoesNotExist(): should have returned null")
		End If
	End Sub
End Class

Q2xhc3MgQ291cnNlCiAgICBQdWJsaWMgU3ViIE5ldyhpZCBBcyBTdHJpbmcsIHRpdGxlIEFzIFN0cmluZywgY3JlZGl0SG91cnMgQXMgSW50ZWdlciwgZGVzY3JpcHRpb24gQXMgU3RyaW5nLCBwcmVyZXF1aXNpdGVDb3Vyc2UgQXMgU3RyaW5nKQoJCU1lLkNvdXJzZUlEID0gaWQKCQlNZS5Db3Vyc2VUaXRsZSA9IHRpdGxlCgkJTWUuQ3JlZGl0SG91cnMgPSBjcmVkaXRIb3VycwoJCU1lLkRlc2NyaXB0aW9uID0gZGVzY3JpcHRpb24KCQlNZS5QcmVyZXF1aXNpdGVDb3Vyc2UgPSBwcmVyZXF1aXNpdGVDb3Vyc2UKCUVuZCBTdWIKCgoJUHVibGljIENvdXJzZUlEIEFzIFN0cmluZwoJUHVibGljIENvdXJzZVRpdGxlIEFzIFN0cmluZwoJUHVibGljIENyZWRpdEhvdXJzIEFzIEludGVnZXIKCVB1YmxpYyBEZXNjcmlwdGlvbiBBcyBTdHJpbmcKCVB1YmxpYyBQcmVyZXF1aXNpdGVDb3Vyc2UgQXMgU3RyaW5nCkVuZCBDbGFzcwpDbGFzcyBDb3Vyc2VMaXN0CglQdWJsaWMgQ291cnNlQXJyYXkgQXMgQ291cnNlKCkgPSB7TmV3IENvdXJzZSgiQ0lTIDQwMCIsICJPTyBBbmFseXNpcyAmIERlc2lnbiIsIDQsICJJbXBvcnRhbnQgY2xhc3MiLCAiQ0lTIDExMCIpLCBOZXcgQ291cnNlKCJDSVMgMTUwQSIsICJWQi5ORVQgUHJvZ3JhbW1pbmciLCA0LCAiR29vZCBJbnRyb2R1Y3Rpb24gdG8gcHJvZ3JhbW1pbmciLCAiQ0lTIDEwMCIpLCBOZXcgQ291cnNlKCJDSVMgMTUwQiIsICJDIyBQcm9ncmFtbWluZyB3aXRoIGxhYnMiLCA0LCAiRm9sbG93LXVwIHRvIENJUyAxMDAiLCAiQ0lTIDEwMCIpfQoKCglQdWJsaWMgRnVuY3Rpb24gR2V0Q291cnNlQnlDb3Vyc2VJRChpZCBBcyBTdHJpbmcpIEFzIENvdXJzZQoJCUlmIE5vdCBTdHJpbmcuSXNOdWxsT3JFbXB0eShpZCkgVGhlbgoJCQlGb3IgRWFjaCBjb3Vyc2UgQXMgdmFyIEluIENvdXJzZUFycmF5CgkJCQlJZiBjb3Vyc2UuQ291cnNlSUQgPSBpZCBUaGVuCgkJCQkJUmV0dXJuIGNvdXJzZQoJCQkJRW5kIElmCgkJCU5leHQKCQlFbmQgSWYKCQlSZXR1cm4gTm90aGluZwoJRW5kIEZ1bmN0aW9uCkVuZCBDbGFzcwpDbGFzcyBDb3Vyc2VMaXN0VGVzdAoJUHVibGljIFNoYXJlZCBTdWIgTWFpbihhcmdzIEFzIFN0cmluZygpKQoJCUdldENvdXJzZUJ5Q291cnNlSURUZXN0V2hlbkNvdXJzZUV4aXN0cygpCgkJR2V0Q291cnNlQnlDb3Vyc2VJRFRlc3RXaGVuQ291cnNlRG9lc05vdEV4aXN0KCkKCUVuZCBTdWIKCgoJUHVibGljIFNoYXJlZCBTdWIgR2V0Q291cnNlQnlDb3Vyc2VJRFRlc3RXaGVuQ291cnNlRXhpc3RzKCkKCgkJRGltIG15Q291cnNlTGlzdCBBcyBOZXcgQ291cnNlTGlzdCgpCgkJRGltIG15Q291cnNlIEFzIENvdXJzZSA9IG15Q291cnNlTGlzdC5HZXRDb3Vyc2VCeUNvdXJzZUlEKCJDSVMgNDAwIikKCQlJZiBteUNvdXJzZS5Db3Vyc2VJRCA8PiAiQ0lTIDQwMCIgVGhlbgoJCQlTeXN0ZW0uQ29uc29sZS5Xcml0ZUxpbmUoIkVSUk9SIC0gR2V0Q291cnNlQnlDb3Vyc2VJRFRlc3RXaGVuQ291cnNlRXhpc3RzKCk6IFJldHVybmVkIENvdXJzZUlEIE5vdCBlcXVhbCAoQ0lTIDQwMCkiKQoJCUVuZCBJZgoJRW5kIFN1YgoKCVB1YmxpYyBTaGFyZWQgU3ViIEdldENvdXJzZUJ5Q291cnNlSURUZXN0V2hlbkNvdXJzZURvZXNOb3RFeGlzdCgpCgoJCURpbSBteUNvdXJzZUxpc3QgQXMgTmV3IENvdXJzZUxpc3QoKQoJCURpbSBteUNvdXJzZSBBcyBDb3Vyc2UgPSBteUNvdXJzZUxpc3QuR2V0Q291cnNlQnlDb3Vyc2VJRCgiQ0lTIDEwMSIpCgkJSWYgbXlDb3Vyc2UgSXNOb3QgTm90aGluZyBUaGVuCgkJCVN5c3RlbS5Db25zb2xlLldyaXRlTGluZSgiRVJST1IgLSBHZXRDb3Vyc2VCeUNvdXJzZUlEVGVzdFdoZW5Db3Vyc2VEb2VzTm90RXhpc3QoKTogc2hvdWxkIGhhdmUgcmV0dXJuZWQgbnVsbCIpCgkJRW5kIElmCglFbmQgU3ViCkVuZCBDbGFzcw==