1. Откройте проект Лр4_Зад1.
2. Запустите проект на выполнение. Проверьте, выдается ли ошибка Division by Zero (Деление на ноль) при выполнении операции деления на 0 (рис. 7.1).
Рис. 7.1
3. Измените процедуру деления таким образом, чтобы при попытке деления на ноль выдавалось следующее сообщение (рис. 7.2):
Рис. 7.2
Private Sub cmdDiv_CIick()
X = Val(txtX.Text)
Y = Val(txtY.Text)
If Y <>0 Then Rezult = X / Y: txtRezult.Text = Str(Rezult) Else MsgBox "На ноль делить нельзя!!!", 16, "Ошибка"