Тригонометрические функции
|
Функция |
Назначение |
|
Atn |
Арктангенс числа |
|
Cos |
Косинус числа |
|
Log |
Натуральный логарифм числа |
|
Sin |
Синус числа |
|
Tan |
Тангенс числа |
Примеры использования тригонометрических функций:
dblY=Cos(dblX)
dblZ=2*Tan(dblX)
Полный перечень встроенных функций Visual Basic 6.0 вы можете найти в файле vbfunction.chm
Лабораторный практикум Лабораторная работа 5.1. Алгоритмы ветвления с применением оператора If.
Задание: Используя оператор If…Else, сравнить две переменные по условию:
-
Равны ли две переменные?
-
X больше Y?
-
X меньше Y?
Ход работы:
-
Запустите Microsoft Visual Basic 6.0 (см. Запуск Visual Basic 6.0.)
-
Выберите тип проекта StandardEXE и нажмите кнопку Открыть. Появится среда разработки Visual Basic. Должна быть доступна панель элементов управления (см. Панель элементов управления) и открыт конструктор форм (см. Конструктор форм)
-
Создайте на форме элементы управления, как показано на рисунке 5.1.
Рисунок 5.1. Элементы управления и их свойства к лабораторной работе 5.1.
-
Откройте редактор кода и напишите следующий код:
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
-
Выполните приложение.
Результат работы приложения: при нажатии на кнопку «Сравнить X и Y» появиться окно сообщений с результатами сравнения.
Лабораторная работа 5.2. Алгоритмы ветвления с применением оператора Case.
Задание: Написать приложение для решения квадратного уравнения, записанного в форме Ax2+Bx+C=0
-
Запустите Microsoft Visual Basic 6.0 (см. Запуск Visual Basic 6.0.)
-
Выберите тип проекта StandardEXE и нажмите кнопку Открыть. Появится среда разработки Visual Basic. Должна быть доступна панель элементов управления (см. Панель элементов управления) и открыт конструктор форм (см. Конструктор форм)
-
Создайте на форме элементы управления, как показано на рисунке 5.2.
Рисунок 5.2. Элементы управления и их свойства к лабораторной работе 5.2.
-
Откройте редактор кода и напишите следующий код:
Private Sub cmdCalc_Click()
Dim dblA As Double
Dim dblB As Double
Dim dblC As Double
Dim dblD As Double
Dim dblX1 As Double
Dim dblX2 As Double
dblA = txtA.Text
dblB = txtB.Text
dblC = txtC.Text
'Рассчет дискриминанта
dblD = dblB ^ 2 - 4 * dblA * dblC
'Выбор решения, в зависимости от дискриминанта
Select Case dblD
Case Is = 0
dblX1 = -dblB / (2 * dblA)
MsgBox "Дискриминант=0, X1=X2=" & dblX1
Case Is > 0
dblX1 = (-dblB + Sqr(dblD)) / (2 * dblA)
dblX2 = (-dblB - Sqr(dblD)) / (2 * dblA)
MsgBox "Дискриминант=" & dblD & " X1=" & dblX1 & " X2=" & dblX2
Case Else
MsgBox "Дискриминант=" & dblD & ", следовательно корней не существует"
End Select
End Sub
-
Выполните приложение.
Результат работы приложения: по заданным коэффициентам A, B и C при клике на кнопку с надписью «Найти корни» приложение находит корни квадратного уравнения.