Основы программирования в среде Visual Basic for Application (Excel 2010)

три текстовых элемента и два элемента -надписи, расположив их по горизонтали в следующем порядке: текстовый элемент, элемент надпись, текстовый элемент, элемент надпись, текстовый элемент (рис. 2.2).

3.Задайте для созданных текстовых элементов свойства Name: txtTextl, txtText2, txtText3. Свойства Text задайте пустыми. Задайте размер шрифта 18 (свойство Font).

4.Задайте для элементов надписей значение свойства Caption: "X" и "=", соответственно. Отрегулируйте размеры элементов так, чтобы они представляли строку калькулятора.

5.Дважды щелкните на элементе-кнопке и поместите кнопку на форме. Задаем для свойства Name значение cmdCalc , а для свойства Caption — значение Пуск.

6.Дважды щелкните на кнопке и откройте окно с подпрограммой

cmdCalc_Clickf(). Откорректируйте подпрограмму следующим образом

Private Sub cmdCalc_Click() Dim intNum1 As Integer Dim intNum2 As Integer Dim intNum3 As Integer intNum1 =Val(txtText1.Text) intNum2 = Val(txtText2.Text)

intNum3= intNum1* intNum2 txtText3.Text = Str(intNum3) End Sub

В этой процедуре используются две стандартные функции Val и Str. Функция Val преобразует строку в число. Функция Str преобразует число любого типа в строку.

7. Запустите программу клавишей F5.

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

1.Измените учебную программу "Калькулятор" так, чтобы она выполняла умножения четырехзначных целых чисел.

2.Измените учебную программу "Калькулятор" так, чтобы она выполняла целочисленное деление целых чисел.

3.Измените учебную программу "Калькулятор" так, чтобы она вычисляла остаток от деления двух целых (деление по модулю).

Контрольные вопросы

1.Что такое переменная? Чем она отличается от константы?

2.С какой целью переменным назначаются типы данных?

3.Какие операторы используются для объявления переменных или констант?

4.Что такое целая переменная? Какой ее диапазон значений?

5.Что такое оператор присваивания? Приведете пример такого оператора из учебного задания?

6.Что такое целочисленное деление и деление по модулю?

7.Почему переменные intNum1, intNum2, intNum3 вышеприведенной програм-

Усков Ю.И., Катеринина С.Ю.

23

каф. МиИТ, нояб.2015

Основы программирования в среде Visual Basic for Application (Excel 2010)

мы описаны как Integer? Чем отличается тип Integer от типа Long? IB каком случае переменную intNum3 необходимо описывать как Long?

8.Какое событие возникает при нажатии кнопки Пуск?

9.Для чего рекомендуется имя переменной начинать с префикса?

10.Что означает конструкция txtTextl.Text? Что означает текст, стоящий слева от точки?

11.Какие действия происходят при выполнении оператора

intNum1 = Val(txtText1.Tеxt)?.

12. Какие действия происходят при выполнении оператора txtTextS.Text = Str(intNum3)?

14. Какие стандартные функции используются в учебном задании?

Задание для закрепления знаний.

Рассмотрим ситуацию, когда деньги помещаются на банковский депозит под определенный процент. Стоимость вклада будет расти по мере накопления процентов. Предлагается составить программу, которая будет определять будущую стоимость вклада по простой процентной ставке. Используется: следующая формула:

Новая стоимость = Сумма основного вклада*(1 + N*R/100).

Здесь R — простая процентная ставка в долях единицы (т.е. изменяется от 0 до 1), N — срок вклада в годах.

Программа должна иметь текстовые окна TextBox, через которые пользователь задает сумму основною вклада, простую процентную ставку, срок вклада в годах. Кроме того, программа должна иметь кнопку Расчет новой стоимости, при нажатии на которую вычисляется новая стоимость вклада. Полученный результат помещается в поле-надпись (Label). Все поля должны иметь заголовки (для этого используйте элементы Label)

2.3. Вещественные переменные.

Основная цель задания.

1.Изучить тип данных "вещественные переменные".

2.Продолжить изучение стандартных функций Str, Val.

Краткая справка.

Вещественный тип также принадлежит к фундаментальным типам данных. Они могут принадлежать интервалу от ± 1.4×10- 45 до ± 3.4×10+45 (тип Single) и

от ± 4.94× 10-324 до ±1.79× 10+308 (тип Double). Вещественный тип используется для большинства арифметических операций. Префиксом вещественных переменных являются sng для типа Single и dbl для типа Double.

Усков Ю.И., Катеринина С.Ю.

24

каф. МиИТ, нояб.2015

Основы программирования в среде Visual Basic for Application (Excel 2010)

Основные операции для работы с вещественными числами: сложение, деление, умножение, деление, возведение в степень.

Некоторые функции для работы с вещественными числами:

•Rnd(Число) — генерирует случайное число в диапазоне от 0 до 1. Необязательный параметр Число позволяет выполнить предустановку псевдослучайной последовательности

•Sin(Число), Соs(Число), Таn(Число) — вычисляют синус, косинус, тангенс от значения параметра в радианах.

•Аbs(Число) — возвращает абсолютное значение числа.

•Sqr(Число) — вычисляет квадратный корень от значения параметра. Полный список функций приведен в Приложении 3.

Задание 2.3

Напишите программу, которая определяет стоимость количества золота, равного вашему весу

(рис. 2.3).

Рис. 2.3.

Технология выполнения задания

1.Выполните пункты 1…5 Задания 1.1

2.Выделите форму и измените свойство Name

на frmZadanie2_3, а свойству Caption Шутка

3.Создайте на форме frmZadanie2_3 элемент-надпись и задайте его свойству Name значение lblGold, а свойству Caption присвоим значение «Отвечает ли ваш вес зо-

лотому эквиваленту?».

4.Дважды щелкните по элементу-кнопке на панели инструментов и поместите кнопку на форме. Задаем для свойства Name значение cmdGold, а свойству Caption

присвоим значение "Введите свой вес в кг".

5.Дважды щелкните на кнопке и откройте окно с подпрограммой сmdGold_Click(). Добавьте в подпрограмму следующий фрагмент

Private Sub cmdGold_Click() Dim strRc As String

Dim sngWeight As Single Dim sngGold As Single

strRc = InputВох("Введите свой вес в кг:")

‘преобразование строки в число

sngWeight = Val (strRc) sngGold = 15000 * sngWeight

' преобразование числа в строку strRc = Str(sngGold)

MsgBox "Стоимость вашего веса в золотом эквиваленте" _ & strRc & " $"

Усков Ю.И., Катеринина С.Ю.

25

каф. МиИТ, нояб.2015

Основы программирования в среде Visual Basic for Application (Excel 2010)

MsgBox " Драгоценный Вы мой,несомненно Вы именно столько и стоите !" & _

"Если же цена золота упадет, то питайтесь более плотно," & _

"чтобы сохранить свою стоимость!"

End Sub

Обратите внимание!

Для переноса строки программного кода используется так подчеркивания «_» после пробела. В процедуре используются две стандартных функции Val и Str. Функция Val преобразует строку в число, функция Str преобразует число любого типа в строку.

6. Запустите программу клавишей F5.

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

Измените программу 2.3 так, чтобы она определяла вес бриллианта, равного по стоимости вашему весу. Примерная формула пересчета

Стоимость веса(руб)= 780*Bec (кг). Стоимость одного карата 20 000 (руб).

Вес бриллианта = Стоимость веса/Стоимость одного карата.

Контрольные вопросы

1.Для чего нужны вещественные переменные? Как они описываются?

2.Что такое приоритеты операций и почему они важны?

3.Чем отличается тип Single от типа Double. В каких случаях эти типы должны использоваться?

4.Что означает оператор sngWeight = Val(strRc)? Можно ли его записать в виде

sngWeight = strRc?

5. Что означает оператор strRc = Str(sngGold)? Корректна ли будет запись strRc = sngGold?

6.Что означает символ &, используемый в операторе MsgBox

7.Для чего используется функции Str() и Val()?

Задание для закрепления знаний

Создайте программу, которая изменяет единицы измерения веса: килограммы в фунты. Форма должно иметь два текстовых элемента (TextBox), озаглавленных как «Ваш вес в кг» и «Ваш вес в фунтах», а также кнопку «Переведи в фунты» Формула перевода: 1 фунт = 0.41 кг.

2.4. Переменные типа дата/время

Основная цель задания

1.Изучить переменные для хранения даты и времени.

Усков Ю.И., Катеринина С.Ю.

26

каф. МиИТ, нояб.2015