Как подсчитать в трехзначном числе количество цифр, не превосходящих заданной цифры, введенной с клавиатуры - VB

Узнай цену своей работы

Формулировка задачи:

ребят,помогите сделать прогу, два дня пытаюсь - и все безрезультатно вот собственно и задание: "подсчитать в трехзначном числе количество цифр, не превосходящих заданной цифры, введенной с клавиатуры"

Решение задачи: «Как подсчитать в трехзначном числе количество цифр, не превосходящих заданной цифры, введенной с клавиатуры»

textual
Листинг программы 
b = InputBox("Ââåäèòå ÷èñëî", "Ââåäèòå ÷èñëî")
    Text1.Text = "529"
        a = Left(Text1.Text, 2)
            If b > a Then
                d = d + 1
                Label1.Caption = d
            End If

ИИ поможет Вам:

  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 4.143 из 5
Похожие ответы