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

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


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

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

8   голосов , оценка 4.5 из 5