Работа с текстом - VB (62638)
Формулировка задачи:
Помогите, пожалуйста, в решении вот такой вот задачи:
Необходимо выводить на экран только слово с указанным номером из введенного текста
Заранее спасибо!
Решение задачи: «Работа с текстом»
textual
Листинг программы
Sub m_1() 'Создание на пластинке оперативной памяти 'поименованной области (массива) Предложение. 'String означает, что в переменной Предложение может находиться только текст. Dim Предложение() As String 'Создание на пластинке оперативной памяти 'поименованной области (переменной) НомерСлова. 'Long означает, что в переменной НомерСлова могут находиться только целые числа. Dim НомерСлова As Long 'Помещение в переменную Предложение текста. 'InputBox - инструмент VB для ввода в переменные данных. 'Split - инструмент VB для создания из строки массива. '" " - означает, что массив будет формироваться на основе пробела между словами. 'Например, если предложение представляет из себя: компьютерная программа, 'то в первый элемент массива попадёт слово "компьютерная", 'а во второй элемент массива попадёт слово "программа". Предложение() = Split(InputBox("Введите предложение"), " ") 'Помещение в переменную НомерСлова номера слова, 'которое нужно отобразить на экране. НомерСлова = InputBox("Введите порядковый номер слова, которое нужно вывести на экран") 'MsgBox инструмент VBA для вывода на экран информации. 'Минус один - потому что нумерация элементов массива начинается с 0 '(так запрограммировано). Например, если нам нужно вывести на экран 'первое слово предложения, то элемент массива с порядковым номером 1, 'будет второе слово в предложении. Например, есть предложение: 'компьютерная программа. В нулевой элемент массива попадёт слово '"компьютерная", а в первый элемент массива попадёт слово "программа". MsgBox Предложение(НомерСлова - 1) End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д