Sub Programma Dim A As String, n As Integer, i As Integer A = InputBox ("Vvedite chislo") ' Вводим число, как строку n = 0 ' Счетчик пятерок For i = 1 To Len(A) ' Цикл по всем знакам в строке If Mid$(A, i, 1) = "5" Then n = n + 1 ' Если знак = 5, прибавляем счетчик Next i MsgBox (n) ' Выводим счетчик на экран End Sub
Dim A As String, n As Integer, i As Integer
A = InputBox ("Vvedite chislo") ' Вводим число, как строку
n = 0 ' Счетчик пятерок
For i = 1 To Len(A) ' Цикл по всем знакам в строке
If Mid$(A, i, 1) = "5" Then n = n + 1 ' Если знак = 5, прибавляем счетчик
Next i
MsgBox (n) ' Выводим счетчик на экран
End Sub