End Sub. Private Sub Command1_Click()

End Sub

End If

End If

Else

End Sub

Private Sub Command1_Click()

'Объявление констант

Const P1 As String = "Проект эффективен"

Const p2 As String = "Проект не эффективен"

'Проверка наличия введённой информации

If Text1 <> "" And Text2 <> "" _

And Text3 <> "" And Text4 <> "" Then

'Преобразование значений текстовых полей

'в десятичные числа

S = CDec(Text1)

N = CDec(Text2)

P = CDec(Text3)

t = CDec(Text4)

'Расчёт дисконтной прибыли

D = P / (1 + N / 100) ^ t

'Расчёт коэффициента эффективности

k = D / S

'Округление и преобразование числовых значений в символьные

Text5.Text = CStr(Round(D, 2))

Text6.Text = CStr(Round(k, 2))

'Проверка эффективности проекта

If k < 1 Then

Text7.Text = p2

Text7.Text = P1

' Сброс значений перменных

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

Сохраните проект. Выполните компиляцию. Закройте Visual Basic. Проверьте работоспособность приложения.

Задание 2. Ввод числовой информации с использованием элемента управления Microsoft UpDown

Создайте новый проект.

Из меню Проект откройте палитру компонентов Visual Basic (Проект \ Компоненты).

В окне Components (рис.32) выберите группу стандартных элементов Microsoft Windows Common Controls-2 6.0.

Нажмите кнопку Применить. На панели элементов появятся стандартные элементы Windows.

Нажмите кнопку Закрыть.

Присвойте форме наименование Калькулятор. Подберите соответствующую иконку.

Разместите на форме три текстовых поля Text1 – Text3 и подписи к ним Label1 – Label3 в соответствие с рис. 33.

Выделите текстовые поля с использованием клавиши Ctrl и присвойте свойству Locked значение True. Это позволит исключить ввод данных с клавиатуры.

Значение свойства Text установите равным нулю.

Рис. 32. Выбор стандартных компонентов Windows

Рис. 33. Окно формы Калькулятор

Значение свойства Alignment – 1-Right Justify.

Рядом с первым и вторым текстовыми полями разместите стандартные элементы Windows UpDown1 и UpDown2.

Эти элементы управления предназначены для ввода числовой информации. Они могут быть использованы только совместно с другими элементами, например, с текстовым полем. При этом каждое нажатие кнопки со стрелкой направленной вверх увеличивает число, а нажатие нижней кнопки – уменьшает.

Присвойте свойствам этих объектов значения, приведённые в табл. 9.

Таблица 9

Объекты	Свойства	Значения
UpDown1, UpDown2	Alignment	1-cc2AlignmentRight
UpDown1, UpDown2	BuddyProperty	(Default)
UpDown1, UpDown2	Max
UpDown1, UpDown2	Min
UpDown1	BuddyControl	Text1
UpDown2	BuddyControl	Text2

В правой стороне формы разместите пять кнопок управления Command1 – Command5. Свойствам Caption этих кнопок присвойте значения +, -, /, *, ^ соответственно.

Создайте программный код приведённый ниже.

' Сложение

Private Sub Command1_Click()

Text3.Text = Val(Text1) + Val(Text2)

Дата добавления: 2014-12-27