Составте пожалуйста программу ** языке basic для определения имеется ли в данном слове...

Question

Составте пожалуйста программу на языке basic для определения имеется ли в данном слове часть, равная заданному слову

Answer 1

Sub Z()
Dim t, s As String
t = InputBox("Введите строку:")
s = InputBox("Введите словоî:")
If InStr(t, s) > 0 Then
    MsgBox ("Да, это слово есть в строке")
    Else: MsgBox ("Нет такого слова в строке")
    End If
End Sub

Comments

это же не на BASIC

---

Да нет, это BASIC)) BASIC VBA. Бейсиков много разных есть, надо точно указывать, какой нужен))

---

ммм спасибо)))

---

Тебе на каком нужно?

---

я не знаю какой у меня BASIC, ладно уже не надо)

---

QBASIC? Узнай точно, скажешь, переделаю

---

да этот BASIC

---

Вариант для qbasic:
INPUT "Введите строку:"; T$
INPUT "Введите слово:";S$
T = LEN(T$)
S = LEN(S$)
FOR I = 1 TO T - S + 1
M$ = MID$(T$, I, S)
IF M$ = S$ THEN F = 1
NEXT I
IF F = 1 THEN PRINT "Да, это слово есть в строке" ELSE PRINT "Нет такого слова в строке"