Работа с текстом - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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