Порядок выполнения задания 3.
3.1. Создайте новый проект VB (Файл ► Новый проект ► Standard EXE).
3.2. Используя панель инструментов (ToolBox), расположите на форме в соответствии с рис. 3 семь тестовых окон , восемь меток и сделайте в них надписи, поясняющие назначение текстовых окон. Разместите две командные кнопки и сделайте надписи на них «Вычислить» и «Exit».
3.3. Откройте окно редактирования кода первой командной кнопки «Вычислить». Для этого дважды щёлкните по этой кнопке, в результате перед Вами откроется окно с кодом программы. Для события Click напишите программу процедуры:
Private Sub Command1_Click()
Dim x1 As Double
Dim y1 As Double
Dim x2 As Double
Dim y2 As Double
Dim x3 As Double
Dim y3 As Double
Dim d1 As Double
Dim d2 As Double
Dim d3 As Double
Dim min As Double
Dim k As Integer
x1 = Text1.Text
y1 = Text2.Text
x2 = Text3.Text
y2 = Text4.Text
x3 = Text5.Text
y3 = Text6.Text
d1 = Sqr(x1 ^ 2 + y1 ^ 2)
d2 = Sqr(x2 ^ 2 + y2 ^ 2)
d3 = Sqr(x3 ^ 2 + y3 ^ 2)
If d1 = d2 = d3 Then
Text7.Text = "Точки одинаково удалены"
Else
min = d1
k = 1
If min > d2 Then
min = d2
k = 2
End If
If min > d3 Then
min = d3
k = 3
End If
Select Case k
Case 1
Text7.Text = " Ближайшая точка A, расстояние d=" + CStr(Round(min, 2))
Case 2
Text7.Text = " Ближайшая точка B, расстояние d=" + CStr(Round(min, 2))
Case 3
Text7.Text = " Ближайшая точка C, расстояние d=" + CStr(Round(min, 2))
End Select
End If
End Sub
3.4. Вернитесь в окно формы, нажав кнопку «Показать объект» проводника проектов.
3.5. Щёлкните дважды по кнопке «E xit». Для события Click напишите следующую команду Unload Form 1, которая выгружает форму из оперативной памяти и завершает работу программы.
|
|
Private Sub Command2_Click()
Unload Form1
End Sub
3.6. Запустите программу, нажав кнопку «Старт» на панели инструментов. Введите данные в соответствии с рис. 4 и нажмите кнопку «Вычислить». Посмотрите результат вычисления и сравните его с результатом на рис. 4 и нажмите кнопку «Exit».
3.7. Сохраните проект в своей папке на диске C :\Мои документы и закройте его.
Рис. 4. Результат работы программы для задания 3
Задание 4. Написать программу для реализации алгоритма решения задачи с разветвляющейся структурой (задание 4 темы 6.2). Примерная форма приложения представлена на рис. 2.
Порядок выполнения задания 4.
4.1. Откройте созданный Вами проект в задании 2 (Файл ► Открыть проект).
4.2. Откройте окно редактирования кода первой командной кнопки «Вычислить». Для этого дважды щёлкните по этой кнопке, в результате перед Вами откроется окно с кодом программы. Для события Click измените программу процедуры, добавив в неё команду условного перехода if (пример кода программы приведён для задания 4):
Private Sub Command1_Click()
Dim x As Double
Dim y As Double
Dim x1 As Double
Dim x2 As Double
Dim x3 As Double
x = Text1.Text
If (2 * x + 2 >= 0) And (x <> 2) Then
x1 = Sqr(2 * x + 2) * Cos(x)
|
|
x2 = Log(4 * x * x + 3)
x3 = x2 / (x - 2)
y = x1 - x3
Text2.Text = Round(y, 3)
Else
Text2.Text = "x= " + CStr(x) + " не входит в ОДЗ "
End If
End Sub
4.3. Вернитесь в окно формы, нажав кнопку «Показать объект» проводника проектов.
4.4. Запустите программу, нажав кнопку «Старт» на панели инструментов. Введите следующие данные 1) x=5 2) x=-4 и нажмите кнопку «Вычислить». Посмотрите результаты вычислений. Для завершения работы программы нажмите кнопку «Exit».
4.7. Доложите преподавателю о выполнении заданий.
По команде преподавателя закройте все окна и завершите работу с Windows. Для этого нажмите кнопку «Пуск», выберите пункт «Завершение сеанса Студент». В появившемся диалоговом окне нажмите кнопку «Выход». Выключите компьютер.
Вопросы для самопроверки
1. Порядок построения алгоритмов задач с линейной структурой.
2. Как описать переменную вещественного типа данных в Visual Basic?
3. Как описать переменную целого типа данных в Visual Basic?
4. Как описать переменную строкового типа данных в Visual Basic?
5. Напишите функцию взятия квадратного корня от значения переменной в Visual Basic.
6. Порядок построения алгоритмов задач с разветвляющейся структурой.
7. Опишите работу условного оператора if в Visual Basic.
8. Опишите работу оператора множественного выбора (Select Case) в Visual Basic.
|
|
Дата добавления: 2018-11-24; просмотров: 211; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!