Dim srub As Double, sval As Double, kurs As Double

Общий формат оператора объявления переменных состоит из ключевого слова Dim, за которым указывается имя переменной, затем идет ключевое слово As, после которого определяется тип переменной. В одном операторе Dim можно объявить несколько переменных как одного, так и разных типов. В нашем случае переменные имеют вещественный тип, который задается ключевым словом Double.

Выполним двойной щелчок по кнопке «Вычислить». Появится окно кода, содержащее шаблон процедуры обработки события, который начинается словами Private Sub и заканчивается словами End Sub. После слов Private Sub находится имя процедуры. В нашем случае это имя CmdCalc_Click.

Введем в эту процедуру следующие строки:

‘ Сохраним в переменной srub сумму в руб.

srub = Val(TextR.Text)

Первая строка является комментарием, объясняющим, что происходит в данном месте программы. Строка комментария всегда начинается с символа одинарной кавычки. Когда компилятор встречает символ одинарной кавычки, он игнорирует оставшуюся часть строки и переходит к обработке следующей строки кода.

Во второй строке происходит считывание текстовой информации, которую пользователь ввел в текстовое поле TextR, преобразование ее в числовой вид и сохранение полученных данных в переменной srub. Все это записано с помощью одного оператора присваивания. Имя переменной располагается слева от знака равенства, а в правой части оператора указывается значение, которое надо присвоить этой переменной. Функция Val используется для преобразования текстовой строки, указанной в скобках, в число, которое и участвует в вычислениях. Текст, который пользователь ввел в поле TextR, находится в его свойстве Text. Для обращения к свойству объекта в программе используется запись типа объект.свойство. Если в среде разработки в окне "Code" написать имя объекта TextR и поставить «.», то после точки должно появиться окно, содержащее все доступные для использования свойства элемента. Здесь надо только выбрать необходимое. Если же такое окно не появилось, значит была допущена ошибка в написании имени.

Внесем остальной код:

‘ Сохраним курс в переменной kurs

kurs = Val(TextK.Text)

‘ Вычислим сумму в валюте и отобразим ее

sval = srub / kurs

TextV.Text = CStr(Round(sval, 2))

В последней строке происходит округление полученного результата, преобразование его в текстовый вид и отображение в текстовом поле TextV. Все это записано с помощью одного оператора присваивания. Слева от знака равенства указано свойство Text поля TextV. Для обращения к свойству объекта в программе используется запись типа объект.свойство. В правой части оператора указывается значение, которое надо присвоить этому свойству. Стандартная функция CStr используется для преобразования указанного в скобках числа в текст. Стандартная функция Round используется для округления указанного в скобках числа до второго десятичного знака [1,4].

Полный текст программного кода (листинг) приведен на рис 5.2.

'описание переменных