Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
-
-
Как продвинуть сайт на первые места?Вы создали или только планируете создать свой сайт, но не знаете, как продвигать? Продвижение сайта – это не просто процесс, а целый комплекс мероприятий, направленных на увеличение его посещаемости и повышение его позиций в поисковых системах.Ускорение продвиженияЕсли вам трудно попасть на первые места в поиске самостоятельно, попробуйте технологию Буст, она ускоряет продвижение в десятки раз, а первые результаты появляются уже в течение первых 7 дней. Если ни один запрос у вас не продвинется в Топ10 за месяц, то в SeoHammer за бустер вернут деньги. Начать продвижение сайта
-
Сервис онлайн-записи на собственном Telegram-ботеТот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое расписание, но и напоминать клиентам о визитах тоже. Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.
Для новых пользователей первый месяц бесплатно. Чат-бот для мастеров и специалистов, который упрощает ведение записей: — Сам записывает клиентов и напоминает им о визите;
— Персонализирует скидки, чаевые, кэшбэк и предоплаты;
— Увеличивает доходимость и помогает больше зарабатывать; Начать пользоваться сервисом
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. Проверьте работу программы.
|
|