VB 总结类、对象、封装的含义

(1)创建学生Student类,它包含三个属性:整型属性学号(NO)、字符型属性姓名(Name)、日期型属性生日(BirthDay),一个输出的方法PrintInformation,其中,输出信息包含学号、姓名、生日。

(2)把1题中增加年龄(Age)属性,该属性只读,输出信息为:学号、姓名、年龄。

(3)把2题中定义一个构造函数,该构造函数可以包含(学号、姓名、生日)


Public Class Students
Dim intNo As Integer
Dim strName As String
Dim datBirthday As Date

Public Structure StudentsInfo
Dim NO As Integer
Dim Name As String
Dim Birthday As Date
End Structure

Public Sub New()
intNo = 0
strName = ""
datBirthday = Now
End Sub

Public Function PrintInformation() As StudentsInfo
Dim stuInformation As StudentsInfo
With stuInformation
.NO = intNo
.Name = strName
.Birthday = datBirthday
End With

Return stuInformation
End Function

Public Property NO()
Get
Return intNo
End Get
Set(ByVal value)
intNo = value
End Set
End Property

Public Property Name()
Get
Return strName
End Get
Set(ByVal value)
strName = value
End Set
End Property

Public Property BirthDay()
Get
Return datBirthday
End Get
Set(ByVal value)
datBirthday = value
End Set
End Property
End Class

Public Class StudentsAddAge
Inherits Students
Dim intAge As Integer

Public Structure StudentsInfoAddAge
Dim NO As Integer
Dim Name As String
Dim Age As Integer
End Structure

Public Sub New()
intAge = 0
End Sub

Public Property Age()
Get
Return intAge
End Get
Set(ByVal value)
intAge = value
End Set
End Property

Public Overloads Function PrintInformation(ByVal isPrintAge As Boolean) As StudentsInfoAddAge
Dim stuInformation As StudentsInfoAddAge
With stuInformation
.NO = MyBase.NO
.Name = MyBase.Name
.Age = intAge
End With
Return stuInformation
End Function
End Class

Public Class StudentsSubNew
Inherits StudentsAddAge
Public Sub New(ByVal NO As Integer, ByVal Name As String, ByVal BirthDay As Date)
MyBase.NO = NO
MyBase.Name = Name
MyBase.BirthDay = BirthDay
End Sub
End Class
posted @ 2012-05-22 23:13  hannover  阅读(1625)  评论(0编辑  收藏  举报