Функция с неопределенным количеством параметров

[savraska]

Функция возвращает строку,самую длинную из введеных. пока определяет только длину
Option Base 1
Function func5(ParamArray arg() As Variant) As String
maxdlina = Len(arg(1))
For i = 1 To UBound(arg)
a = Len(arg(i))
If a > maxdlina Then maxdlina = a

Next i
func5 = maxdlina
End Function

[Skif-F]

Option Base 1
Function func5(ParamArray arg() As Variant) As String
  maxdlina = Len(arg(1))
  flag = 1
  For i = 2 To UBound(arg)
      a = Len(arg(i))
      If a > maxdlina Then maxdlina = a: flag = i
  Next i
  func5 = arg(flag)
End Function

[savraska]

спасибо. Не могли бы вы объяснить что такое flag?

[Skif-F]

Сообщение от savraska

спасибо. Не могли бы вы объяснить что такое flag?

flag - это просто переменная.
Можно объявить так:

Option Base 1
Function func5(ParamArray arg() As Variant) As String
  Dim flag As Integer, maxdlina As Integer, i As Integer, a As Integer

  maxdlina = Len(arg(1))
  flag = 1
  For i = 2 To UBound(arg)
      a = Len(arg(i))
      If a > maxdlina Then maxdlina = a: flag = i
  Next i
  func5 = arg(flag)
End Function