Лабораторная работа по Visual Basic на тему ««Разработка алгоритмов и программ разветвляющей структуры

Лабораторная работа по Visual Basic
Разработка алгоритмов и программ разветвляющей структуры

Цель работы: изучение возможностей разработки приложений с циклическими алгоритмическими структурами
Задания

Задание первого уровня сложности
Табулировать функцию 13 EMBED Equation.3 1415 с границами [1;2] и шагом 0,1

Интерфейс программы


Компоненты формы
Объект
Свойство
Значение

Form1
Caption
Задание 1

Command1
Caption
Вычислить

Command2
Caption
Выход

Frame1
Caption
Ввод данных

Frame2
Caption
Вывод данных

Label1
Caption
Введите A

Label2
Caption
Введите B

Label3
Caption
Введите h

ListBox
Name
List1



Кодпрограммы

Dim a, b, h, x, y As Single
Private Sub Command1_Click()
List1.Clear
a = Val(Text1)
b = Val(Text2)
h = Val(Text3)
For x = a To b Step h
y = 0.1*x^2 - x*Log(x)
List1.AddItem Format(x, "00.0000") & " " & Format(y, "00.0000")
Next x
EndSub

PrivateSubCommand2_Click()
End
EndSub

Блок-схема решения задачи

13 EMBED Visio.Drawing.11 1415


Задание для самостоятельной работы
Табулировать функцию 13 EMBED Equation.3 1415с границами [-1;2] и шагом 0.2

Задание второго уровня сложности
Табулировать функцию при заданных исходных данных, диапазоне и шаге изменения аргумента (t = 20.3, a = 0.5, b = 2, dx = 0.1)

Интерфейс программы

Кодпрограммы

Dima, b,
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
·
Блок-схема
13 EMBED Visio.Drawing.11 1415

Кодпрограммы

Dim a, b, dx, t As Single
Private Sub Command1_Click()
List1.Clear
a = Val(Text1)
b = Val(Text2)
dx = Val(Text3)
t = Val(Text4)
For X = a To b Step dx
If (X>1) Then Y=(Log(X+1))/Log(10)
Else Y=Sin(
·Sqrt(Abs(t*X)))^2
List1.AddItem Format(X, "00.000") & " " & Format(Y, "00.000")
Next X
End Sub

Private Sub Command2_Click()
End
End Sub

Объект
Свойство
Значение

Form1
Label1
Label2
Label3
Label4
Frame1
Frame2
ListBox
Command1
Command2
Caption
Caption
Caption
Caption
Caption
Caption
Caption
Name
Caption
Caption
Задание 2
Введите число a
Введите число b
Введите число dx
Введите число t
Ввод данных
Вывод результата
List1
Вычислить
Выход


Задание для самостоятельной работы
Табулировать функцию 13 EMBED Equation.3 1415 в диапазоне [–1; 10] с шагом при заданных исходных данных, диапазоне и шаге изменения аргумента (a = -1, b =10, dx = 0.5)

Вывод:
В процессе выполнения лабораторной работы я изучил возможности разработки приложений с циклическими алгоритмическими структурами. А именно: изучил правила использования операторов условного перехода и операторов циклов, изучил возможности разработки приложений с циклическими алгоритмическими структурами и контроля за их выполнением с использованием объектов Visual Basic: ползунок, индикатор процесса выполнения программы.

Вопросы к лабораторной работе:
Какой оператор используется для организации цикла при известном числе повторений?
Какие операторы используются для организации циклов при известном заранее числе повторений?
Каким образом организовать выход из цикла до исчерпания значений его параметра?
Для чего используется элемент управления (объект) Ползунок?
В каких случаях используется Индикатор процесса?

Требования к отчету
Наименование задания
Блок-схема решения задачи
Интерфейс программы
Список использованных компонентов с их свойствами
Код программы
Результат работы программы

Рисунок 35Root Entry