Untitled

Imports System

Module Program
    Sub Main(args As String())
        Dim tabelle(,) As Integer = {{1001, 5, 500, 0}, {2001, 23, 1200, 0}, {3001, 2, 85, 0}}

        For i As Integer = 0 To 2
            'tabelle(3, i) = tabelle(1, i) * tabelle(2, i)
            Console.WriteLine("{0}x Artikel Nr. {1} à {2} EUR = {3}", tabelle(i, 1), tabelle(i, 0), tabelle(i, 2), tabelle(i, 3))

        Next

        Console.WriteLine()

        For i As Integer = 0 To 2
            tabelle(i, 3) = tabelle(i, 1) * tabelle(i, 2)
            Console.WriteLine("{0}x Artikel Nr. {1} à {2} EUR = {3}", tabelle(i, 1), tabelle(i, 0), tabelle(i, 2), tabelle(i, 3))

        Next

    End Sub
End Module