Проект Цели:

Тема: Проект «Отметка»
Цели:








познакомить с алгоритмическими структурами «ветвление» и «выбор» в языке
программирования Visual Basic;
показать возможности применения алгоритмических структур «ветвление» и «выбор» при
решении задач;
закрепить знание механизмов ввода и вывода сообщений с помощью функций ввода и
вывода;
закрепить умение использовать различные элементы управления;
развивать практические навыки решения задач с помощью компьютера;
развивать умение анализировать и делать выводы;
развивать алгоритмическое мышление;
воспитывать интерес к предмету.
Тип урока: комбинированный.
Оборудование: компьютеры, дидактический материал.
Программное обеспечение: система программирования Visual Basic.
План урока:
1.
2.
3.
4.
5.
Организационный момент.
Актуализация знаний.
Объяснение нового материала.
Практическая работа.
Подведение итогов. Постановка домашнего задания.
Ход урока.
1. Организационный момент.
2. Актуализация знании, проверка домашнего задания..
Какие функции позволяют реализовать ввод и вывод на языке Visual basic?
Опишите синтаксис этих функций.
Какие параметры имеет функция ввода?
Какие параметры имеет функция вывода?
В каких задачах можно использовать функции ввода и вывода?
Что необходимо сделать, если в программе используются переменные? (описать)
Какое служебное слово используется для описания переменных? (Dim)
3. Объяснение нового материала.
Алгоритмическая структура «ветвление»
If условие Then
Серия1
[Else
серия2]
End If
If условие_
Then серия1 _
[Else серия2]
Алгоритмическая структура «выбор».
Select Case выражение
Case условие1
серия 1
Case условие2
серия 2
Case Else
серия
End Select
1.
2.
3.
4.
5.
Задача. Создать проект «отметка».
Создать новый проект.
Разместить на форме:
2 текстовых поля TxtN для ввода
количества ошибок, TxtBall для
вывода отметки;
2 метки для вывода поясняющих
записей;
кнопку CmdBall для создания событийной процедуры.
Создать код событийной процедуры для кнопки CmdBall.
Dim bytN As Byte
Private Sub CmdBall_Click()
bytN = Val(txtN.Text)
Select Case bytN
Case 0
txtBall.Text = "Отлично"
Case 1
txtBall.Text = "Хорошо"
Case 2
txtBall.Text = "Удовлетворительно"
Case Else
txtBall.Text = "Плохо"
End Select
End Sub
Сохранить файл формы командой Сохранить Form1 Как… и файл проекта
командой Сохранить Проект как..
Запустить проект на выполнение.
4. Практическая работа.
Задание 1.8. Проект «Поиск большего из двух чисел». На языке Visual Basic создать проект
«Поиск большего из двух чисел».
Проект «Поиск большего из двух чисел»
1
2
Создать проект. Разместить на форме три текстовых поля txtA, txtB и txtMax и кнопку
cmd1.
Ввести код событийной процедуры, в которой использовать оператор условного перехода
If-Then-Else:
Dim sngA, sngB, sngMax As Single
Private Sub cmd1_Click()
sngA = Val(txtA.Text)
sngB = Val(txtB.Text)
If sngA >= sngB Then sngMax = sngA Else sngMax = sngB
txtMax = sngMax
End Sub
3
Запустить проект на выполнение, ввести в
верхние два поля числа и щелкнуть по кнопке
Большее из двух чисел.
В нижнем текстовое поле будет выведено
большее из чисел.
Сохранить файл формы командой [Сохранить Form1.frm Как …] как frm1.frm и файл проекта
командой [Сохранить Проект Как …] как prjZ1-8.vbp. Готовый проект хранится в каталоге
\VB\Z1-8\
Дополнительное задание. Модернизировать проект «Отметка» так, чтобы программа
запрашивала у пользователя количество ошибок. (InputBox)
5. Подведение итогов.
Задача. Создать проект «отметка».
1. Создать новый проект.
2. Разместить на форме:
2 текстовых поля TxtN для ввода количества
ошибок, TxtBall для вывода отметки;
2 метки для вывода поясняющих записей;
кнопку CmdBall для создания событийной
процедуры.
3. Создать код событийной процедуры для кнопки CmdBall.
Dim bytN As Byte
Private Sub CmdBall_Click()
bytN = Val(txtN.Text)
Select Case bytN
Case 0
txtBall.Text = "Отлично"
Case 1
txtBall.Text = "Хорошо"
Case 2
txtBall.Text = "Удовлетворительно"
Case Else
txtBall.Text = "Плохо"
End Select
End Sub
4. Сохранить файл формы командой Сохранить Form1 Как… и файл
проекта командой Сохранить Проект как..
5. Запустить проект на выполнение.
Задача. Создать проект «отметка».
1. Создать новый проект.
2. Разместить на форме:
2 текстовых поля TxtN для ввода количества
ошибок, TxtBall для вывода отметки;
2 метки для вывода поясняющих записей;
кнопку CmdBall для создания событийной
процедуры.
3. Создать код событийной
процедуры для кнопки CmdBall.
Dim bytN As Byte
Private Sub CmdBall_Click()
bytN = Val(txtN.Text)
Select Case bytN
Case 0
txtBall.Text = "Отлично"
Case 1
txtBall.Text = "Хорошо"
Case 2
txtBall.Text = "Удовлетворительно"
Case Else
txtBall.Text = "Плохо"
End Select
End Sub
4. Сохранить файл формы командой Сохранить Form1 Как… и файл
проекта командой Сохранить Проект как..
5. Запустить проект на выполнение.