ТЕМА № 1. Событие Change элемента управления TextBox

Задание: разработайте приложение, которое вычисляет значение квадратного корня. При вводе отрицательного аргумента должно выводиться сообщение «Действительных корней нет».

Ход работы

Рис. 7. Конструктор формы

1   В первую очередь на новой форме создайте элементы управления: TextBox – для ввода аргумента, Label – для вывода значения корня или надписи, CommandButton – для выхода из программы (размеры и расположение на рис. 7).

2   Измените свойство Caption для формы на «Вычисление квадратного корня».

3   Запрограммируйте событие Click для кнопки Выход оператором End.

4   Запрограммируйте событие Change для текстового окна (событие, возникающего при изменении значения свойства Text) следующим образом:

Private Sub txtАргумент_Change()

            lblРезультат = Sqr(Val(txtАргумент))

End Sub

5   Запустите программу и убедитесь, что при вводе неправильного значения выдается сообщение об ошибке.

6   Используйте условный оператор для того, чтобы значение корня вычислялось только при вводе положительного аргумента, сделайте это следующим образом:

Private Sub txtАргумент _Change()

            If Val(txtАргумент) >= 0 Then lblРезультат = Sqr(Val(txtАргумент))

End Sub

7   Запустите программу и убедитесь, что работает практически всё за исключением вывода надписи «Действительных корней нет» при вводе отрицательных значений.

8   Используя полную запись условного оператора в обработке события Change текстового окна txtAргумент, исправьте допущенную ошибку.

Рис. 8. Результат работы приложения

9   Запустите и отладьте приложение. Сохраните проект приложения на носителе (см. Создание и сохранение приложения на VB).

Дополнительное задание

Исправьте приложение так, чтобы оно при вводе нечислового значения выводило надпись: «Вы ввели нечисловое значение!».

Контрольные задания

Разработать приложение, которое вычисляет значение следующего выражения (при выполнении контрольного задания не забудьте учесть область определения выражения):

1) ;                   2) ;          3) ;

4) ;              5) ; 6) ;

7) ;                  8) ; 

9) ;                      10) .

Вопросы для самоконтроля

1   Когда генерируется событие Change для элемента управления TextBox?

2   Какая функция VB переводит строковое значение в целое число?

3   Почему необходимо проверять вводимые в TextBox данные?

4   Какой оператор VB выполняет определенные действия в зависимости от заданного условия?

5   Какое значение получит переменная А после выполнения следующего оператора:

if 7 Then A=1 Else A=2 ?

Скачано с www.znanio.ru