Удалить все слова совпадающие с первым - VB
Формулировка задачи:
Просто безумно нужна помощь
я в долгу не останусь ))))
нужно написать программу в Basic'e!!!
1. С помощью InputBox ввести предложение из нескольких слов.
2. Сформировать массив строк из n элементов (n-количество слов во введённом предложении)
3.Удалить все слова совпадающие с первым
Решение задачи: «Удалить все слова совпадающие с первым»
textual
Листинг программы
Dim s$, s1$, i%
s = InputBox("?")
Do While InStr(1, s, " ") > 0
s = Replace(s, " ", " ")
Loop
a = Split(s, " ")
s1 = ""
For i = LBound(a) To UBound(a)
If a(i) <> a(LBound(a)) Then s1 = s1 + a(i) + " "
Next i
If s1 = "" Then s1 = "---"
MsgBox s & vbLf & s1
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д