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

Лабораторная работа по Visual Basic

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

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

Задания

Задание первого уровня сложности

Табулировать функцию с границами [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

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

Задание для самостоятельной работы

Табулировать функцию с границами [-1;2] и шагом 0.2

Задание второго уровня сложности

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

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

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

Dima, b, dx, tAsSingle

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

Блок-схема

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

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

Вычислить

Выход

Задание для самостоятельной работы

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

Вывод:

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

Вопросы к лабораторной работе:

1. Какой оператор используется для организации цикла при известном числе повторений?

2. Какие операторы используются для организации циклов при известном заранее числе повторений?

3. Каким образом организовать выход из цикла до исчерпания значений его параметра?

4. Для чего используется элемент управления (объект) Ползунок?

5. В каких случаях используется Индикатор процесса?

Требования к отчету

1. Наименование задания

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

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

4. Список использованных компонентов с их свойствами

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

6. Результат работы программы