Public Sub Beispiel()            '1
                                  '2
        Dim i As Integer          '3
        Dim a As Integer = 10     '4
        Dim b As Integer          '5
                                  '6
                                  '7
                                  '8
        For i = 0 To 100          '9
                                  '10
            b = a                 '11
            b = b + i             '12
            Console.WriteLine(a)  '13
                                  '14
        Next                      '15
                                  '16
    End Sub                       '17