Как подсчитать в трехзначном числе количество цифр, не превосходящих заданной цифры, введенной с клавиатуры - 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

Похожие ответы