Дан одномерный строковый массив arrx(), определить определить вторую по длинне запись - VB

Узнай цену своей работы

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

Дан одномерный строковый массив arrx(), определить определить вторую по длинне запись. Заранее благодарю=)

Решение задачи: «Дан одномерный строковый массив arrx(), определить определить вторую по длинне запись»

textual
Листинг программы
Function SecondStr(Arr() as string) As String
  m1%=len(Arr(1))
  i1%=1
  m2%=len(Arr(1))
  i2%=1 
  For i%=2 to ubound(Arr,1)
       m%=len(Arr(i%))
       if m% > m1% then
          m2%=m1%
          i2%=i1%
          m1%=m%
          i1%=i%
       elseIf m% > m2% then
          m2%=m%
          i2%=i%
       end if  
   Next i%
   SecondStr=Arr(i2%)   
End Function

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

6   голосов , оценка 4 из 5
Похожие ответы