Лабораторные работы по Visual Basic

Предлагаю коллегам несколько лабораторных работ по реализации учебных мини-проектов в среде Visual Basic:

Лабораторная работа № 1. Программа “Счастливый номер”. Программа “Таблица умножения”.

Лабораторная работа № 2. Программа “Вычисление НДС”.

Лабораторная работа № 3. Программа “Времена года”.

Лабораторная работа № 4. Программа “Подарки On-line”.

Лабораторная работа № 5. Программа “Угадай-ка”.

Лабораторная работа № 1

1. Программа “Счастливый номер”

Задание: разработать программу, в которой на форме выводятся четыре случайных числа из интервала от 0 до 9. Если среди них есть число 7, то появляется картинка с изображением денег (рис. 1.1).

 

Рис. 1.1

Указания по выполнению

1. Изменить заголовок формы (на панели свойств изменить значение свойства Caption формы на Счастливый номер).

2. Разместить на форме пять надписей, две кнопки и объект Image (Рисунок). Значения свойств объектов установить в соответствии с таблицей.

Примечание. При создании надписей Lbl2–Lbl5 надо создать первую из них, установить необходимые значения свойств, после чего трижды скопировать ее. При запросе программы на создание массива элементов управления ответить отрицательно.

3. В первой строке программного кода в разделе General Declarations записать оператор Option Explicit. Данный оператор контролирует использование только объявленных (описанных) переменных, что позволяет избежать многих ошибок.

4. Запрограммировать процедуру обработки события “Щелчок на кнопке с надписью Выход” на завершение программы:

Private Sub CmdExit_Click()

End

End Sub

После этого сделать указанную кнопку так называемой “кнопкой отмены” (которая реагирует на нажатие клавиши ). Для этого надо изменить значение ее свойства Cancel на True.

5. Запрограммировать процедуру обработки события “Щелчок на кнопке с надписью Вращать” на появление на надписях Lbl2, Lbl3, Lbl4, Lbl5 случайных чисел из интервала от 0 до 9, а также на проверку того факта, есть ли среди них число 7. Если такое число есть, то надо вывести изображение рисунка, изначально скрытое:

Private Sub CmdSpin_Click()

'Скрываем рисунок

ImgMoney.Visible = False

'Вывод случайных чисел

Randomize ()

Lbl2.Caption = Int(Rnd * 10)

Lbl3.Caption = Int(Rnd * 10)

Lbl4.Caption = Int(Rnd * 10)

Lbl5.Caption = Int(Rnd * 10)

'Проверка

If Lbl2.Caption = 7 Or Lbl3.Caption = 7 Or

Lbl4.Caption = 7 Or Lbl5.Caption = 7 Then

'Показываем рисунок

ImgMoney.Visible = True

End If

End Sub

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

1. Добавить на форму еще две надписи для чисел (Lbl6 и Lbl7) с такими же свойствами, что и имеющиеся, разместив их в одной строке.

2. Изменить диапазон выбора случайных чисел — от 1 до 5, а “счастливым” сделать набор, в котором сумма первых трех чисел равнялась сумме трех последних.

Примечание. Поскольку значение свойства Caption надписей Lbl2, Lbl3, …, Lbl7 — это текст, то при нахождении суммы его надо перевести в число с помощью функции Val (т.е. слагаемое будет, например, не Lbl2.Caption, а Val(Lbl2.Caption)).

2. Программа “Проверка знаний таблицы умножения”

Задание: создать программу для проверки знания таблицы умножения. Общий вид формы показан на рис. 1.2. При нажатии на кнопку с надписью Начать в двух первых текстовых окнах выводятся случайные числа из интервала от 1 до 9, после чего надпись на кнопке меняется на Продолжить. Ответ вводится в третье текстовое окно^**. После нажатия на кнопку с надписью Проверить ответ анализируется и на экран выводится окно сообщений либо со словом Молодец!, либо со словом Неправильно!. При нажатии на кнопку с надписью Закончить происходит выход из программы.

Рис. 1.2

Указания по выполнению

1. Изменить заголовок формы на Таблица умножения.

2. Разместить на форме необходимые объекты. Значения свойств объектов установить в соответствии с таблицей (см. с. 19).

3. Включить проверку переменных (Option Explicit).

4. Запрограммировать процедуру обработки события “Щелчок на кнопке с надписью Закончить” на завершение программы и сделать ее кнопкой отмены.

5. Запрограммировать процедуру обработки события “Щелчок на кнопке с надписью Начать”:

1) обеспечить появление случайных чисел из интервала от 1 до 9 на надписях Lbl2 и Lbl3;

2) сменить надпись на кнопке Начать на Продолжить:

CmdStart.Caption = "Продолжить"

3) очистить текстовое поле для ввода ответа и сделать его доступным (свойство Enabled):

Txt.Text = ""

Txt.Enabled = True

4) сделать доступной кнопку с надписью Проверить:

CmdTest.Enabled = True

6. Запрограммировать процедуру обработки события “Щелчок на кнопке с надписью Проверка”:

Private Sub CmdTest_Click()

If Txt.Text = Lbl1.Caption * Lbl2.Caption Then

MsgBox "Молодец!", vbOKOnly + vbInformation, "Проверка"

Else

MsgBox "Неправильно!", vbOKOnly + vbCritical, "Проверка"

End If

End Sub

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

1. Изменить приложение и программный код таким образом, чтобы на форму выдавались и проверялись примеры на сложение двух целых чисел.

2. Переделайте процедуру, реагирующую на событие “Щелчок на кнопке с надписью Проверка”, таким образом, чтобы в случае неправильного ответа в окне сообщений появлялась надпись: “Неправильно. Правильный ответ — [указать правильный ответ]”.

Продолжение следует

---

* При изменении названий некоторых элементов управления и их свойств материал статьи может быть использован и применительно к системе программирования Borland Delphi. — Прим. ред.

** Проверка корректности введенного значения с точки зрения его типа не проводится.