Нужно передать массив как Optional аргумент - VB

Формулировка задачи:

Есть массив, элементами которого являются поля рекордсета (ADODB.Recordset.Field). Просто передать его в некую функцию - не проблема. А вот передать его в качестве [bold]Optional[/bold]-аргумента в ту же функцию - вот вопрос! Понятно, что надо чё-то мудрить со ссылками и т.д. и т.п. Но сам не разберусь. [bold]Need help [/bold]

Решение задачи: «Нужно передать массив как Optional аргумент»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
 
Dim b(3) As Integer
b(0) = 1
b(1) = 2
b(2) = 3
b(3) = 4
 
Tratata b
 
End Sub
 
 
Function Tratata(Optional ByVal a As Variant)
 
Dim cnt
For cnt = 0 To UBound(a)
    MsgBox a(cnt)
Next
 
End Function
                        

Оцени полезность:

5 голосов , оценка 3.8 из 5

Похожие ответы