Untitled
unknown
plain_text
a month ago
687 B
2
Indexable
Never
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