copyright 1999 - 2014 by heinz prelle - hannover  - lenbachstraße 42 - www.visual-basic5.de | impressum
Schleifen 1 Schleifen 2 Schleifen 3
Mehrfache Programmschleifen

Beispiel: Einlesen einer Matrix
n = . . . . .
Dim A(n,n)
A = . . . . .
oder mit einer Doppelschleife
n = . . . . .
Dim A(n,n)
For i = 1 To n
For k = 1 To n
A(i,k) = . . . . .
Next k
Next i

Beide vorangegangenen Beispiele lesen der Reihe nach ein:
a11, a12,a13, ....., a1n, a21, a22, ..... , a2n, a31, ..... ann.
Beispiel:
Erzeugen und Ausgeben einer (9,9) - Matrix A mit Aik = j * k. Ziel: Ausgabe des in der Tabelle gezeigten "Kleine Einmaleins".
Strukturansicht mit Quelltext:
Source Code:
Option Base 1

Private Sub sFirstLoop7()
    Dim A(9, 9)     As Variant
   
    Picture1.Print " * | "; 1; 2; 3; 4; 5; 6; 7; 8; 9
    Picture1.Print String$(40, "-")
    For i = 1 To 9
        For k = 1 To 9
            A(i, k) = i * k
        Next k
        Picture1.Print i; "|"; A(i, 1); A(i, 2); A(i, 3); A(i, 4);
        Picture1.Print A(i, 5); A(i, 6); A(i, 7); A(i, 8); A(i, 9)
    Next i
End Sub