活代码LINQ——02

一、复习基础——属性与实例变量

'Fig. 4.8:GradeBookTest.vb
'Create and manipulate a GradeBook object.
Module GradeBookTest
    'Main begins program execution
    Sub Main()
        'line 8 creates a GrateBook object that is referenced by
        'variable gradeBook of type GradeBook
        Dim gradeBook As New GradeBook

        'display initial value of property CourseName(invokes Get:调用Get访问符)
        Console.WriteLine("Initial course name is:" & gradeBook.CourseName & vbNewLine)

        'prompt for course name
        Console.WriteLine("Please enter the course name:")

        'read course name
        Dim theName As String = Console.ReadLine()

        gradeBook.CourseName = theName 'set the courseName（invokes Set）
        Console.WriteLine() 'output a blank line

        'display welcome message including the course name(invokes Get)
        gradeBook.DisplayMessage()
        Console.ReadKey()
    End Sub

End Module

　二、类代码

'Fig. 4.7:GradeBook.vb                                               |-----------------------------------------------|
'GradeBook class that contains instance variable courseNameValue     |注：instance variable（实例变量）              |
'and a property to get and set its value.                            |property（属性包含set和get）                   |
Public Class GradeBook                                              '|此类中包含一个方法Display和属性courseNameValue |
    Private courseNameValue As String 'course name for this GradeBook| Private声明实例变量                           |
    '                                                                |属性以访问限定符（public）开始                 |
    'property CourseName                                             |-----------------------------------------------|
    Public Property CourseName() As String
        Get 'retrieve courseNameValue(提取实例变量courseNameValue值）
            Return courseNameValue
        End Get
        Set(ByVal value As String) ' courseNameValue
            courseNameValue = value 'store the course name in the object
        End Set
    End Property 'CourseName

    'display a welcome message to the GradeBook user
    Public Sub DisplayMessage()
        'use property CourseName to display the
        'name of the course this GradeBook represents
        Console.WriteLine("Welcome to the grade book for" & vbNewLine & CourseName & "!")
        '注：在方法中通过属性（CourseName）来操作对应的实例变量（courseNameValue）被认为是一种很好的做法
        '实际上就是调用了类的属性，从而返回了我们所需要的属性内经过运算的实例变量
    End Sub 'DiaplayMessage

End Class 'GradeBook

三、运行结果

　　

源于：visual basic 2008 how to program  P102