Составьте программу на Visual Basic
Вводится некоторое трехзначное число x (пусть x=255)
Вывести на экран сколько число 5 в x.(с объяснениями) Спасибо:)

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