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

Answer 2

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

Answer 3

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

Answer 4

Вариант для 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 "Нет такого слова в строке"