Студопедия

Главная страница Случайная страница

Разделы сайта

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






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. Проверьте работу программы.







© 2023 :: MyLektsii.ru :: Мои Лекции
Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав.
Копирование текстов разрешено только с указанием индексируемой ссылки на источник.