'Visual Basic 2010 Static Typing Static Typing en Dynamic Binding
Class Addition
    Public Sub New(ByVal term1 As Integer, ByVal term2 As Integer)
        Me.Term1 = term1
        Me.Term2 = term2
    End Sub
    Private m_Term1 As Integer
    Public Property Term1() As Integer
        Get
            Term1 = m_Term1
        End Get
        Set(ByVal value As Integer)
            m_Term1 = value
        End Set
    End Property
    Private m_Term2 As Integer
    Public Property Term2() As Integer
        Get
            Term2 = m_Term2
        End Get
        Set(ByVal value As Integer)
            m_Term2 = value
        End Set
    End Property
    Public Function GetSum() As Double
        GetSum = Term1 + Term2
    End Function
    Public Overrides Function ToString() As String
        ToString = Term1 & " + " & Term2 & " = " & GetSum()
    End Function
End Class
Class Example
    Public Shared Sub Main()
        Dim number As Integer
        number = 5                                             ' (1)
        Do While number < 10                                   ' (2)
            Console.WriteLine(number)                          ' (3)
            number = number + 1                                ' (4)
        Loop
        Dim addition1 As Addition = New Addition(3, number)    ' (5)
        Console.WriteLine("sum : " & addition1.GetSum())       ' (6)
        Console.WriteLine(addition1.Term2)                     ' (7)
        '
        Console.ReadLine()
    End Sub
End Class
'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden.
'Copyright - De Wolf / vbvoorbeelden - 2003-2011 - Alle rechten voorbehouden.