Análise de programação
-------------------------------------------------
Public Class ClscCalcular
-------------------------------------------------
Private n1, n2, n3 As Double
-------------------------------------------------
------------------------------------------------- Public Property nota1() As Double
-------------------------------------------------
Get
-------------------------------------------------
Return n1
-------------------------------------------------
------------------------------------------------- End Get
-------------------------------------------------
Set(ByVal value As Double)
-------------------------------------------------
n1 = value
-------------------------------------------------
End Set
-------------------------------------------------
End Property
-------------------------------------------------
------------------------------------------------- Public Property nota2() As Double
-------------------------------------------------
Get
-------------------------------------------------
Return n2
-------------------------------------------------
------------------------------------------------- End Get
-------------------------------------------------
Set(ByVal value As Double)
-------------------------------------------------
n2 = value
-------------------------------------------------
End Set
-------------------------------------------------
End Property
-------------------------------------------------
-------------------------------------------------
Public Property nota3() As Double
-------------------------------------------------
Get
-------------------------------------------------
Return n3
-------------------------------------------------