Лабораторно-практическая работа № 7

Тема: Массивы объектов. Массивы данных

Цель: Закрепить навыки использования массива объектов и массива данных

Постановка задачи: Разработать приложение-«Тест»

Порядок выполнения:

1. Установите на форме следующие объекты и измените им свойства:

Объект	Свойство	Значение
Метка	Caption	Вопрос
	Name	LblVopros
	Caption	(отсутствует)
Рамка	Caption	Выбери правильный ответ
Массив переключателей OptOtvet	Font	10, полужирный
	Index	От 1 до 3
	Caption	(отсутствует)
Командная кнопка	Name	Cmd
	Caption	Далее

2. Приведите свою форму в соответствие с образцом

14. В разделе общих объявлений набрать:

Dim Test(4, 5) As String 'массив с вопросами и ответами

Dim Verno As Integer 'кол-во верных ответов

Dim n As Integer 'номер текущего вопроса

Dim s As Integer 'номер выбранного ответа

3. В окне кода процедуры обработки события Load для объекта Form набрать

For i = 1 To 3

OptOtvet(i).Value = False

Next i

n = 0 : Verno = 0

Test(0, 1) = "единица измерения памяти" 'первый вопрос

'варианты ответов на первый вопрос

Test(1, 1) = "тактовая частота"

Test(2, 1) = "байт"

Test(3, 1) = "количество точек"

Test(4, 1) = "2" 'номер правильного ответа на первый вопрос

'данные 2 вопроса

Test(0, 2) = "устройство обработки информации"

Test(1, 2) = "процессор"

Test(2, 2) = "ОЗУ"

Test(3, 2) = "дискета"

Test(4, 2) = "1"

'данные 3 вопроса

Test(0, 3) = "назначение монитора"

Test(1, 3) = "ввода"

Test(2, 3) = "вывод"

Test(3, 3) = "печать"

Test(4, 3) = "2"

'данные 4 вопроса

Test(0, 4) = "назначение CD ROM"

Test(1, 4) = "чтение информации"

Test(2, 4) = "запись информации"

Test(3, 4) = "хранение информации"

Test(4, 4) = "3"

'данные 5 вопроса

Test(0, 5) = "указать устройство ввода и вывода информации"

Test(1, 5) = "дискета"

Test(2, 5) = "мышь"

Test(3, 5) = "дисковод"

Test(4, 5) = "3"

4. В окне кода процедуры обработки события Click для объекта OptOtvet набрать

s = Index

5. В окне кода процедуры обработки события Click для объекта Cmd набрать

For i = 1 To 3

OptOtvet(i).Value = False

Next i

If n = 0 Then

n = 1

LblVopros.Caption = Test(0, n)

For i = 1 To 3

OptOtvet(i).Caption = Test(i, n)

Next i

Exit Sub

End If

If Test(4, n) = s Then Verno = Verno + 1

If n = 5 Then 'тест окончен

MsgBox Str(Verno), , "количество верных ответов"

End

End If

'вывод следующего вопроса

n = n + 1

LblVopros.Caption = Test(0, n)

For i = 1 To 3

OptOtvet(i).Caption = Test(i, n)

Next i

6. Проверьте работу программы

Лабораторно-практическая работа № 8

Тема: Массивы объектов. Массивы данных

Цель: Закрепить навыки использования массива данных и массива объектов

Постановка задачи: Создать приложение «Ваша диета», которое позволяет вводить данные для 6 человек (фамилия, имя, вес, рост) и выводит рекомендации по питанию каждого человека.

Порядок выполнения:

1. Установите на форме следующие объекты и измените им свойства:

Объект	Свойство	Значение
Метки	Caption	Фамилия
	Caption	Имя
	Caption	Вес
	Caption	Рост
Текстовые окна	Name	TxtFam
	Name	TxtNam
	Name	TxtW
	Name	TxtR
Массив меток LblDieta	Index	От 1 до 6
	Visible	False
Командная кнопка	Name	Cmd
	Caption	Следующий

2. Приведите свою форму в соответствие с образцом

3. В разделе общих объявлений набрать

Dim f(1 To 6), n(1 To 6) As String

Dim w(1 To 6) As Integer

Dim r(1 To 60) As Integer

Dim i As Integer

4. В окне кода процедуры обработки события Click для объекта Cmd набрать

If i > 6 Then

MsgBox "Ввод окончен"

For j = 1 To 6

LblDieta(j).Visible = True

If r(j) - 100 > w(j) Then dieta = "на хлеб и воду"

If r(j) - 100 < w(j) Then dieta = "возьми с полки пирожок"

If r(j) - 100 = w(j) Then dieta = "все Ok"

LblDieta(j).Caption = f(j) + " " + n(j) + " " + dieta

Next j

Exit Sub

End If

f(i) = TxtFam.Text

n(i) = TxtNam.Text

w(i) = Val(TxtW.Text)

r(i) = Val(TxtR.Text)

i = i + 1

TxtFam.Text = ""

TxtNam.Text = ""

TxtW.Text = ""

TxtR.Text = ""

5. Проверьте работу программы.