Лабораторная работа 5.1. Алгоритмы ветвления с применением оператора If

Лабораторный практикум

Тригонометрические функции

Функция	Назначение
Atn	Арктангенс числа
Cos	Косинус числа
Log	Натуральный логарифм числа
Sin	Синус числа
Tan	Тангенс числа

Примеры использования тригонометрических функций:

dblY=Cos(dblX)

dblZ=2*Tan(dblX)

Полный перечень встроенных функций Visual Basic 6.0 вы можете найти в файле vbfunction.chm

Задание: Используя оператор If…Else, сравнить две переменные по условию:

• Равны ли две переменные?
• X больше Y?
• X меньше Y?

Ход работы:

1. Запустите Microsoft Visual Basic 6.0 (см. Запуск Visual Basic 6.0.)

2. Выберите тип проекта StandardEXE и нажмите кнопку Открыть. Появится среда разработки Visual Basic. Должна быть доступна панель элементов управления (см. Панель элементов управления) и открыт конструктор форм (см. Конструктор форм)

3. Создайте на форме элементы управления, как показано на рисунке 5.1.

Рисунок 5.1. Элементы управления и их свойства к лабораторной работе 5.1.

4. Откройте редактор кода и напишите следующий код:

Private Sub cmdCompare_Click()

Dim dblX As Double

Dim dblY As Double

dblX = txtX.Text

dblY = txtY.Text

'Проверка на равенство двух чисел

If dblX = dblY Then

MsgBox "X равно Y"

Else

'Проверка, какое из чисел больше

If dblX < dblY Then

MsgBox "X меньше Y"

Else

MsgBox "X больше Y"

End If

End If

End Sub

5. Выполните приложение.

Результат работы приложения: при нажатии на кнопку «Сравнить X и Y» появиться окно сообщений с результатами сравнения.

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