Помогите решить задачку)))

Ввести текст длиной до 254 символов в виде строки, состоящей из слов. Заменить все слова "всегда" на слово"часто". Использовать функции для работы с данными символьного типа. Выдать сообщение о количестве заменённых слов или об отсутствии заменяемого слова.

Вроде это должно быть так
10 INPUT "Исходная строка : ” ; х$
20 х$ = " " + х$ + " ": у$ = “ всегда ” : z$ = “ часто ”
30 n = INSTR (1, х$, у$)
40 WHILE n < > 0
50 х$ > MID$(x$, 1, n – 1) + z$ + MID(x$, n + LEN(y$), LEN(X$))
60 n = INSTR (1, x$, y$)
70 WEND
80 x$ = MID$ (x$, 2, LEN(X$) - 1)
90 PRINT "Преобразованная строка: “ ; x$
100 END
но программа не работает(((((((

Я всё исправила, но выделяется строка 10........что с ней не так?

Исправила, выделяет всю строку после INPUT

У меня Visual Basic 6.0 ........ я в информатике полный 0, помогите)))

Вообще, информатика не по моей специальности, я на лингвистическом учусь) А вот программный код дал сам преподаватель........... Помогите разобраться, пожалуйста)

Но мы работаем именно в VB, по поводу других программ нам не говорили............не знаю что делать(

Ну......преподавателей не выбирают, какой уж есть...........но программу то мне надо как то сделать........а вот как???

В конспекте про замену вообще ни слова.........но вот то, что скинул преподаватель......не совпадает местами с прогр-м кодом

Введем с клавиатуры исходную строку (х$). Для удобства работы и повышения массовости алгоритма определим еще две символьные переменные: у $ — замещаемая подстрока, z$ — замещающая подстрока. Слова берем вместе с прилежащими к ним пробелами, иначе будет произведена замена не только отдельных слов, но и заданного набора символов в составе других слов (так «навсегда» превратится в «начасто»). Если подлежащее замене слово окажется в исходной строке первым или последним (с одним пробелом), оно не преобразуется. Чтобы этого не случилось, добавим программно по пробелу в начало и конец исходной строки.
Решение построено на использовании функции INSTR(i,x$,y$) — см. раздел «Встроенные функции для работы с символьными строками». Начиная с позиции i она определяет позицию первого появления подстроки у$ в строке х$; если подстроки в строке не находит, то возвращает результат 0. Определим позицию первого вхождения (п). Можно производить замену. Для этого разрываем исходную строку на 3 части: до искомой подстроки, подстрока, после подстроки. Первую и третью части вычленяем при помощи функции MID$, помещаем между ними замещающее слово, связываем их опе-рацией конкатенации и присваиваем то, что получилось, переменной х$. Так как мы не знаем, сколько раз в строке встретится интересующая нас подстрока, используем цикл WHILE. Условие выполнения цикла: -п <> 0, т.е. наличие в строке интересующих нас подстрок. Перед входом в цикл определим лишь позицию первого вхождения, — чтобы п было определено (здесь удобно было бы использовать и итерационный цикл с посту-словием). На каждой итерации цикла происходит замена одного нужного слова.
Произведя все необходимые замещения, уберем из строки «искусственные» пробе-лы (строка 80) и выведем ее на экран.

Shocker.Pro, в твоём коде, если "всегда" будет стоять в начале строки, то не заменится)))))
Помогите лучше изменить мой код, пожалуйста))))))))