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

Question

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

Comments

VB? Вы ничего не перепутали? Это что, форму рисовать с окошками и кнопками?

---

Да.рисовать ничего не нужно написать код.

---

Как можно писать в VB код без формы, если он в форме прописывается, например, в кнопке? Как Вы предлагаете данные вводить и выводить без формы?

Answer 1

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