1682736
столько раз учителя, ученики и родители
посетили сайт «Инфоурок»
за прошедшие 24 часа
Добавить материал и получить бесплатное
свидетельство о публикации
в СМИ №ФС77-60625 от 20.01.2015
ИнфоурокИнформатикаКонспектыЛабораторная работа по Visual Basic на тему ««Разработка алгоритмов и программ разветвляющей структуры

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

библиотека
материалов

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

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


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

Задания


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

Табулировать функцию hello_html_7cc4f3b.gif с границами [1;2] и шагом 0,1


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


hello_html_m54bff7ec.pnghello_html_m5c590348.png

Компоненты формы

Объект

Свойство

Значение

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


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


hello_html_mf32d89d.gif



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

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


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

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


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

hello_html_m78675fd6.pnghello_html_m655415d0.png

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


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


Блок-схема

hello_html_2e556348.gif


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


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

Вычислить

Выход


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

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


Вывод:

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


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

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

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

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

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

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


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

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

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

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

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

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

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


Курс профессиональной переподготовки
Учитель информатики
Найдите материал к любому уроку,
указав свой предмет (категорию), класс, учебник и тему:
также Вы можете выбрать тип материала:
Краткое описание документа:
Лабораторная работа содержит практический материал по созданию программ на языке Visual Basic, разбитый на два уровня сложности. Для каждого уровня сложности представлена выполненная задача, которая не требует дублирования на компьютере. Так в работе представлены блок-схемы решаемых задач, что способствуют закреплению полученных знаний.Учащийся выполняет только задания для самостоятельного выполнения, аналогичное описанному в работе. По окончании работы формируется отчет, в котором необходимо представит выполненный проект по каждому уровню сложности (текст задачи, код программы, блок-схему, внешний вид формы)
Общая информация
ВНИМАНИЮ ВСЕХ УЧИТЕЛЕЙ: согласно Федеральному закону N273-ФЗ «Об образовании в Российской Федерации» педагогическая деятельность требует от педагога наличия системы специальных знаний в области обучения и воспитания детей с ОВЗ. Поэтому для всех педагогов является актуальным повышение квалификации по этому направлению!

Дистанционный курс «Обучающиеся с ОВЗ: Особенности организации учебной деятельности в соответствии с ФГОС» от проекта "Инфоурок" даёт Вам возможность привести свои знания в соответствие с требованиями закона и получить удостоверение о повышении квалификации установленного образца (72 часа).

Подать заявку на курс

Вам будут интересны эти курсы:

Курс повышения квалификации «Табличный процессор MS Excel в профессиональной деятельности учителя математики»
Курс повышения квалификации «Информационные технологии в деятельности учителя физики»
Курс повышения квалификации «Методика преподавания информатики в начальных классах»
Курс повышения квалификации «Организация работы по формированию медиаграмотности и повышению уровня информационных компетенций всех участников образовательного процесса»
Курс повышения квалификации «Облачные технологии в образовании»
Курс повышения квалификации «Применение MS Word, Excel в финансовых расчетах»
Курс профессиональной переподготовки «Управление в сфере информационных технологий в образовательной организации»
Курс профессиональной переподготовки «Теория и методика обучения информатике в начальной школе»
Курс повышения квалификации «Современные тенденции цифровизации образования»
Курс повышения квалификации «Специфика преподавания дисциплины «Информационные технологии» в условиях реализации ФГОС СПО по ТОП-50»
Курс повышения квалификации «Современные языки программирования интегрированной оболочки Microsoft Visual Studio C# NET., C++. NET, VB.NET. с использованием структурного и объектно-ориентированного методов разработки корпоративных систем»
Оставьте свой комментарий
Авторизуйтесь, чтобы задавать вопросы.
Включите уведомления прямо сейчас и мы сразу сообщим Вам о важных новостях. Не волнуйтесь, мы будем отправлять только самое главное.