Напишите программу для проверки, есть ли в данном слове буква «в». Если есть, то найдите номер первой из них;
mnv1962:
язык какой?
Ответы
Ответ дал:
2
Код для кнопки:
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
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
Вас заинтересует
10 месяцев назад
10 месяцев назад
6 лет назад
7 лет назад
7 лет назад