- 05.04.2014
- 2641
- 2
Лабораторная работа по 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. Результат работы программы
Рабочие листы
к вашим урокам
Скачать
Лабораторная работа содержит практический материал по созданию программ на языке Visual Basic, разбитый на два уровня сложности. Для каждого уровня сложности представлена выполненная задача, которая не требует дублирования на компьютере. Так в работе представлены блок-схемы решаемых задач, что способствуют закреплению полученных знаний.Учащийся выполняет только задания для самостоятельного выполнения, аналогичное описанному в работе. По окончании работы формируется отчет, в котором необходимо представит выполненный проект по каждому уровню сложности (текст задачи, код программы, блок-схему, внешний вид формы)
6 664 334 материала в базе
Настоящий материал опубликован пользователем Завьялова Светлана Викторовна. Инфоурок является информационным посредником и предоставляет пользователям возможность размещать на сайте методические материалы. Всю ответственность за опубликованные материалы, содержащиеся в них сведения, а также за соблюдение авторских прав несут пользователи, загрузившие материал на сайт
Если Вы считаете, что материал нарушает авторские права либо по каким-то другим причинам должен быть удален с сайта, Вы можете оставить жалобу на материал.
Удалить материал
Ваша скидка на курсы
40%
Курс профессиональной переподготовки
500/1000 ч.
Курс профессиональной переподготовки
300 ч. — 1200 ч.
Курс профессиональной переподготовки
300 ч. — 1200 ч.
Курс профессиональной переподготовки
300/600 ч.
Мини-курс
2 ч.
Мини-курс
4 ч.
Оставьте свой комментарий
Авторизуйтесь, чтобы задавать вопросы.