Задан список из десяти городов. Поменять в списке местами названия самого длинного и самого короткого - VB
Формулировка задачи:
Помогите написать программу! . Задан список из десяти городов. Поменять в списке местами названия самого длинного и самого короткого. Заранее спасибо)))
Решение задачи: «Задан список из десяти городов. Поменять в списке местами названия самого длинного и самого короткого»
textual
Листинг программы
Sub City_List(City() as string) Dim lmax as integer ' самое длинное слово Dim lmin as integer ' самое короткое слово Dim i as integer Dim imax as integer ' позиция самого длинного Dim imin as integer ' позиция самого короткого Dim Tmp as string ' рабочая переменная lmax=Len(City(Lbound(City,1))) ' первоначльно считаем самым длинным lmin=Len(City(Lbound(City,1))) ' и самым коротким - первое слово For i=1 to Ubound(City,1) ' цикл по всем словам If len(City(i)) > lmax then ' если очередное слово длиннее текущего максимума lmax=len(City(i)) ' запомним его imax=i ' и его позицию end if If len(City(i)) < lmin then ' то же - для короткого lmin=len(City(i)) imin=i end if Next i ' конец цикла Tmp=City(imax) ' меняем самое длинное City(imax)=City(imin) ' с самым коротким City(imin)=Tmp End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д