Контроль ввода чисел в InputBox - VB
Формулировка задачи:
как в этом коде сделать защиту от дурака, т. е. что бы при вводе в InputBox чисел програмка считала сумму двух чисел а при вводе вместо чисел каких либо букв мне в MsgBox выводило что я ввел буквы а не числа
Решение задачи: «Контроль ввода чисел в InputBox»
textual
Листинг программы
Private SUB Command1_Click() Form5.Visible = False DIM X AS DOUBLE DIM Y AS DOUBLE on error resume next do X = InputBox("Введите первое число", "Ввод данных") if err then msgbox "Неверный ввод":err.clear else exit do loop do Y = InputBox("Введите второе число", "Ввод данных") if err then msgbox "Неверный ввод":err.clear else exit do loop on error goto 0 MsgBox (X + Y), vbInformation, "Результат" END SUB
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д