### 3000x3000-es egységmátrix készítése

A nagy méret miatt nem listázzuk ki a tömböket.
A reális összehasonlítás érdekében nem használunk folyamatjelzőt.

Értékadás If ... Then utasítással

            Tomb(I, J) = 0
            If I = J Then
              Tomb(I, J) = 1
            End If

Értékadás nullázással, majd módosítással

            ' 1. lépés:                  ' 2. lépés:
            For I = 0 To 3000            For I = 0 To 3000
              For J = 0 To 3000            Tomb(I, I) = 1
                Tomb(I, J) = 0           Next
              Next
            Next

Értékadás logikai kifejezéssel és függvényhívással

            Tomb(I, J) = Abs(I = J)