Глава 4. Например, значением функции Val("2000") является число 2000.Эта функция часто применяется для преобразо­вания строкового значения свойства Text

Например, значением функции Val("2000") является число 2000. Эта функция часто применяется для преобразо­вания строкового значения свойства Text текстовых полей в число, которое затем используется в арифметических выра­жениях.

Воспользуемся функцией Val для создания приложения «Обычный калькулятор», которое будет производить ариф­метические действия над целыми десятичными числами, которые будут вводиться и выводиться в текстовые поля на форме. Для создания графического интерфейса приложения разместим на форме три текстовых поля (два поля для вво­да числовых данных и одно для вывода результата) и пять кнопок для реализации событийных процедур: сложения, вычитания, умножения, деления и завершения работы.

JJH Проект «Обычный калькулятор»

1. Создать новый проект. Разместить на форме три тексто­
вых поля и пять кнопок. Присвоить им имена: txtl,
txt2, txt3, cmdPlus, cmdMmus, cmdUmn, cmdDelen,
cmdExit.

Событийная процедура сложения CmdPlus_Click дол­жна изменять значения свойства Text текстового поля txt3 так, чтобы оно являлось суммой числовых значений свойст­ва Text текстовых полей txtl и txt2. Для преобразования строковых значений, вводимых в текстовые поля, в деся­тичные числа, воспользуемся функцией Val. Код собы­тийной процедуры будет следующим:

Sub cmdPlus_Click()

txt3.Text = Val(txtl.Text) + Val(txt2.Text)