Дан одномерный строковый массив 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д