Вывести наименьшую цифры числа трёхзначного числа. - VB

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

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

Вывести наименьшую цифры числа трёхзначного числа. Помогите пожалуйста...

Решение задачи: «Вывести наименьшую цифры числа трёхзначного числа.»

textual
Листинг программы
Dim c As String, min
c = InputBox("c")
If Len(c) <> 3 Then MsgBox ("<>3!"): Exit Sub
min = Mid(c, 1, 1)
If Mid(c, 2, 1) < min Then min = Mid(c, 2, 1)
If Mid(c, 3, 1) < min Then min = Mid(c, 3, 1)
MsgBox min

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


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

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

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