Методические указания к выполнению лабораторной работы по программированию в VB
Задание 4.2
Создайте программу для выбора правильного ответа на вопрос. Текст вопроса располагается в верхней части формы. Четыре ответа располагаются под вопросом. После того как пользователь выберет один из четырех вариантов ответа, он должен нажать кнопку оценка. Если ответ правильный, то выдается сообщение "Правильный ответ|", в противном случае "Вы ошиблись".
Вопрос: "Для чего предназначена программа Scandisk?" 1)Для удаления вирусов
2)Для удаления временных файлов
3)Для поиска "потерянных" кластеров
4)Для дефрагментации диска
(Правильный ответ3).
5. Флажки. Элементы CheckBox.
Задание 5.1
Создайте программу, определяющую оценку за экзамен. На экзамене предлагается три вопроса, за которые начисляется 14, 16 и 18 баллов. Оценка за экзамен зависит от суммы набранных баллов
Рис.4.2. оценка 5 — сумма баллов от
40 до 50,
оценка 4 — сумма баллов от 32 до 39, оценка 3 — сумма баллов от 18 до 31, оценка 2 — сумма баллов меньше 31.
Технология выполнения за-
дания
1.Создайте новый проект командой File, New Project (Файл, Новый проект).
2.Задайте свойству Name формы значение frmExam, а свойству Caption присвойте значение Оценка за экзамен.
3.Разместите на форме три переключателя (CheckBox) у левого края формы. У каждого переключателя измените значение свойства Name на новое: chkltem1, chkltem2, chkItem3, соответственно. Также свойство Caption каждого переключателя
измените на: «1-ый вопрос (14 баллов)», «2-ой вопрос (16 баллов)», «3-ий вопрос (18 баллов)». Наконец измените шрифт (свойство Font) каждого переключате-
ля на Times Roman, 12 pt.
4.Используя элемент Line, обведите элементы на форме, как показано на рис. 4.2.
5.Правее элементов с номерами вопросов разместите два элемента: элемент-надпись и текстовый элемент. Для элемента-надписи задайте свойству Name Значение lblSum, а свойству Caption присвойте значение Сумма баллов. Для текстового элемента задайте свойство Name значение txtSum. Удалите текущее содержимое свойства Text. На панели свойств элемента надписи и текстового элемента измените свой-
Усков Ю.И. |
23 |
каф. МиИТ, |
2015 |
|
|
Методические указания к выполнению лабораторной работы по программированию в VB
ство Font — шрифт Times Roman, 12 pt.
6. |
Используя элемент Line, сделайте обводку в виде прямоугольника вве- |
денных двух элементов. |
|
7. |
Ниже элементов Сумма балов разместите два элемента: элемент надпись и тексто- |
вый элемент. Для элемента-надписи задайте свойству Name значениеlblMark. а свойству Caption присвойте значение Оценка. Для текстового элемента надписи значение свойства Name измените на txtMark. Удалите текущее содержимое свойства Text. На панели свойств элемента надписи и текстового элемента измените шрифт (свойство Font): Times Roman, 12 pt.
8.Используя элемент Line, сделайте обводку в виде прямоугольника.
9.Ниже блока задач поместите командную кнопку. Для командной кнопки задайте свойство Name значение cmdStart, а свойству Caption присвойте значение Оценить
10.Щелкните дважды по командной кнопке. Раскройте подпрограмму
cmdStart_Click(). Вставьте в неё следующий фрагмент программы:
Private Sub cmdStart_Click()
Dim intSum As Integer |
|
Dim intMark As Integer |
|
If chklteml.Value = 1 Then |
intSum = intSum + 14 |
If chkltem2.Value = 1 Then |
intSum = intSum + 18 |
If chkltemS.Value = 1 Then |
intSum = intSum t- 18 |
txtSum.Text = Str(intSum) |
|
Select Case intSum |
|
Case 40 To 50 |
|
intMark = 5 |
|
Case 32 To 39 |
|
intMark = 4 |
|
Case 18 To 31 |
|
intMark = 3 |
|
Case Is< 18 intMark = 2 End Select
txtMark.Text = Str(intMark) End Sub
11. Сохраните и запустите проект. Проверьте, правильно ли работает программа.
Контрольные вопросы
1.Какие значения может принимать свойство Value элемента CheckBox? Что эти значения обозначают?
2.Чем отличается свойство Value элемента CheckBox от свойства Value элемента
OptionButton?
3.Что означает конструкция txtSum.Text?
4.Что означает оператор txtSum.Text= Str(intSum)? Для чего нужна функция Str()?
Усков Ю.И. |
24 |
каф. МиИТ, |
2015 |
|
|