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

Question

Информатика

Катяша

1 марта, 03:16

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

+2

Ответы (1)

Знаете ответ?

Леоня · Answer 1

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

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