Grundlagen der Programmierung mit VBA Visual Basic for

Ein Parameterfeld variabler Länge. Ein Parameter-Array muss vom Typ Variant sein. Parameter-
Arrays müssen am Ende der Parameterliste stehen. Beispiel:
Sub TestMax()
MsgBox Max(5, 2, 1, -10)
End Sub
Function Max(ParamArray arg() As Variant) As Variant
Dim val As Variant
Max = arg(0)
For Each val In arg
If val > Max Then Max = val
Next
End Function
Benannte Argumente.
Syntax
Sub Name (Para1 [As Typ], Optional Para2 [As Typ], ...)
Beim Aufruf können die Parameter in beliebiger Reihenfolge angegeben werden, wenn die bei der
Definition verwendeten Parameternamen angegeben werden. Beispiel:
Name Para1:=100, Para2:=50
Name Para2:=50, Para1:=100
Aufgabe. Verwenden Sie die Übergabe mit einem Parameter-Array und erstellen Sie ein Programm
für die Bestimmung des arithmetischen Mittelwertes beliebig vieler Werte.
3.2.4 Verfahren der Werteübergabe
Werte können auf zwei Arten übergeben werden:
Call by Reference: die Speicheradresse des Parameters bleibt unverändert. Wird der Parameter im
Unterprogramm geändert, wirkt sich das auch auf die übergeordneten Programme aus. Standardfall in
VBA und FORTRAN. Häufige Ursache zunächst unerklärbarer Programmfehler.
Call by Value: bei der Übergabe wird eine Kopie des Parameters erstellt. Eine Änderung wirkt sich
nicht nach oben aus. Standardfall in C/C++. Unbedarfte Anwendung kann bei rekursiven Programmen
zu Speicherüberlauf führen.
Beispiel. Es werden zwei Prozeduren verwendet, um zwei übergebene Parameter auszutauschen.
Der Unterschied besteht in der Art der Übergabe, ByRef (Call by Reference) bzw. By Val (Call by
Value).
Sub Main()
Dim x As Integer, y As Integer
x = 3: y = 5
TauscheR x, y ' Die Werte von x und y ändern sich
TauscheV x, y ' Die Werte von x und y ändern sich nicht
End Sub
Sub TauscheR(ByRef a As Integer, ByRef b As Integer)
Dim c As Integer
c = a
a = b
b = c
End Sub
Sub TauscheV(ByVal a As Integer, ByVal b As Integer)
Dim c As Integer
c = a
a = b
b = c
End Sub
21