Public Class docente
Inherits Persona
Private m_NoEmpleado As String
Private m_Sueldo As Double
Private m_Materias(12) As String
Public Property NoEmpleado() As String
Get
Return m_NoEmpleado
End Get
Set(ByVal Value As String)
m_NoEmpleado = Value
End Set
End Property
Public Property Sueldo() As Double
Get
Return m_Sueldo
End Get
Set(ByVal Value As Double)
m_Sueldo = Value
End Set
End Property
Public Property Materias(ByVal indice As Integer) As String
Get
Return m_Materias(CInt(indice))
End Get
Set(ByVal Value As String)
m_Materias(indice) = Value
End Set
End Property
End Class
No hay comentarios.:
Publicar un comentario