Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Напишите программу для проверки, есть ли в данном слове буква «в». Если есть, то найдите номер первой из них;

Ответ оставил Гость

Код для кнопки:

Private Sub Command1_Click()
    Dim s As String
    s = InputBox("Введите слово")
    p = InStr(s, "в")
    If p > 0 Then
        MsgBox "Номер буквы ""в"" в слове равен " + Str(p)
    Else
        MsgBox "В слове нет буквы ""в"""
    End If
End Sub