Лабораторная работа по 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.
Результат работы программы
