Нахождения и распечатки строки максимальной длины - VB
Формулировка задачи:
Предварительно создать текстовый файл. Написать программу для нахождения и распечатки строки максимальной длины
Решение задачи: «Нахождения и распечатки строки максимальной длины»
textual
Листинг программы
with createobject("scripting.filesystemobject") with .opentextfile(.getfile(wscript.arguments(0))) while not .atendofstream s=.readline if len(s)>m then m=len(s):sm=s wend end with end with msgbox "Строка макс. длины" & vblf & sm
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д