Контроль ввода чисел в 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