Grundlagen der Programmierung mit VBA Visual Basic for

Next j
Next i
Beispiel. Anwendung von LBound und UBound.
Sub PrintMatrix(Matrix)
' Anzeigen von Matrix "Matrix" mit der Message Box
Dim i As Integer, j As Integer
Dim msg As String
Dim CR As String: CR = Chr(13) & Chr(10)
For i = LBound(Matrix, 1) To UBound(Matrix, 1) ' 1. Index
For j = LBound(Matrix, 2) To UBound(Matrix, 2) ' 2. Index
msg = msg & Matrix(i, j) & " "
Next j
msg = msg & CR
Next i
MsgBox msg
End Sub
Aufgabe. Erstellen Sie ein Programm, um die Transponierte einer Matrix A(n,m) zu bestimmen. Benutzen
Sie LBound und UBound, um die Indexgrenzen zu ermittlen.
3.3.5 dynamische Arrays
Die Dimension dynamischer Arrays wird im Laufe des Programmes bestimmt und ggf. modifiziert.
Elegante Möglichkeit zur Bearbeitung von Daten dynamischen Umfangs.
Syntax
Dim Name ()
ReDim [Preserve] Name (Index1, Index2, ...)
Erase Name
Parameter Verwendung
Dim Anfangsdefiniton ohne Größenangabe!
ReDim Modifikation der Dimension. Achtung: wird das Array verkleinert, gehen die
"überstehenden" Daten verloren.
Standardmäßig wird das Feld neu initialisiert.
Mit Preserve bleiben die Daten erhalten.
Erase Feld wird aus dem Speicher gelöscht.
Name Name des Arrays
IndexN Dimensionsvereinbarungen wie bei statischen Arrays
Public/Static Wie bei Variablen
Beispiel. Redim mit und ohne Preserve. Bei mehrdimensionalen Arrays kann Preserve nur auf die
letzte Dimension angewendet werden.
Sub MatReDim()
Dim MatrixA() As Integer, MatrixB() As Integer ' Deklaration
Dim i As Integer, j As Integer, n As Integer
ReDim MatrixA(1, 1): ReDim MatrixB(1, 1) ' 1. Anpassung
n = 0
For i = 0 To 1
For j = 0 To 1
n = n + 1: MatrixA(i, j) = n: MatrixB(i, j) = n
Next j
Next i
PrintMatrix (MatrixA): PrintMatrix (MatrixB)
26
ReDim MatrixA(2, 2) ' 2. Anpassung
ReDim Preserve MatrixB(1, 2) ' ReDim mit Preserve nur
' für letzten Index möglich!
For i = 0 To 2
n = n + 1: MatrixA(2, i) = n
n = n + 1: MatrixA(i, 2) = n
If i < 2 Then MatrixB(i, 2) = n