double arrow

Порядок действий. 2. Запустите проект на выполнение


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, "Ошибка"







Сейчас читают про: