💸 Как сделать бизнес проще, а карман толще?

Тот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое раписание, но и напоминать клиентам о визитах тоже. Проблема в том, что средняя цена по рынку за такой сервис — 800 руб/мес или почти 15 000 руб за год. И это минимальный функционал. Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.
⚡️ Для новых пользователей первый месяц бесплатно. А далее 290 руб/мес, это в 3 раза дешевле аналогов. За эту цену доступен весь функционал: напоминание о визитах, чаевые, предоплаты, общение с клиентами, переносы записей и так далее.
✅ Уйма гибких настроек, которые помогут вам зарабатывать больше и забыть про чувство «что-то мне нужно было сделать».
Сомневаетесь? нажмите на текст, запустите чат-бота и убедитесь во всем сами!

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. Установите на форме следующие объекты и измените им свойства:

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