Помогите с задачей по информатике языком VBA Дано целое четырехзначное число. Найти...

0 голосов
25 просмотров

Помогите с задачей по информатике языком VBA Дано целое четырехзначное число. Найти минимальную его цифру. Проверить возможность ввода не четырехзначного числа, при этом сообщить об ошибке ввода.


Информатика (20 баллов) | 25 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

Sub ex()
    n = CInt(InputBox("Введите натуральное 4х значное число"))
    If n < 1000 Or n > 9999 Then
        MsgBox "Недопустимое значение"
    Else
        dm = n Mod 10
        Do While n > 0
          d = n Mod 10
          If d < dm Then dm = d
          n = n \ 10
        Loop
        MsgBox "Наименьшая цифра: " + CStr(dm)
    End If
End Sub


(142k баллов)