Создание проекта, проверяющего наличие данной буквы - VB
Формулировка задачи:
Создать проект, который проверяет, есть ли в данном слове буква "В". Если есть, то найти номер первой из них.
Решение задачи: «Создание проекта, проверяющего наличие данной буквы»
textual
Листинг программы
Sub ПРОЕКТ()
Dim S As String 'Слово
S = InputBox("Введите Слово")
Dim P As Long 'позиция "В" в Слове
P = InStr(1, S, "В", vbTextCompare)
If P > 0 Then
MsgBox "номер первой из них = " & P
Else
MsgBox "Не этой буквы в данном слове!"
End If
End Sub