Обработка строковых данных

@Flameshadow · Регистрация: 10.05.2010

Студворк — интернет-сервис помощи студентам

Здравствуйте. Помогите вот с этими двумя заданиями :
1. Ввести предложение и слово. Определить вхождение этого слова в предложение.
2. Определить количество слов в предложении.

Там нужно использовать циклы либо Do…Loop или For…Next и использовать следующие функции: InStr, Mid, Len и другие.
Я начал делать вот так:

Visual Basic

Sub lab15()
Dim st As String, k As Integer, i As Byte
st = InputBox("Введите предложение")
n = InStr(1, st, st1)
For i = 2 To Len(st)
End Sub

Честно я плохо в этом соображаю, поэтому и прошу помочь

@~~Busine2009~~ · 16.05.2010, 22:15

Flameshadow,
а куда слово ввести?

@Flameshadow · 16.05.2010, 22:17 **[ТС]**

Busine2009,
В задании вот так: Написать программу в VBA. Исходные и расчетные данные выводить на лист Excel. Запуск программ организовать с листа Excel.

@~~Busine2009~~ · 16.05.2010, 22:19

Flameshadow,
значит 2 inputboxа нужны.
вот покумекай, может на что-то наведёт, я просто уже всё - готовый:

Visual Basic

Sub m_1()
Dim x As Range
Set x = Range
x = InputBox("Введите, дамы и господа, предложение")
MsgBox x.Words.Count
End Sub

@~~Busine2009~~ Заблокирован
	16.05.2010, 22:15	2
	Flameshadow, а куда слово ввести? 0

@Flameshadow 0 / 0 / 0 Регистрация: 10.05.2010 Сообщений: 4
	16.05.2010, 22:17 [ТС]	3
	Busine2009, В задании вот так: Написать программу в VBA. Исходные и расчетные данные выводить на лист Excel. Запуск программ организовать с листа Excel. 0

	16.05.2010, 22:19

Опции темы