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

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

PicMas2.Cls

For i = 1 To 5

For j = 1 To 5

If i > j Then mas2(i, j) = 1

If i < j Then mas2(i, j) = -1

If i = j Then mas2(i, j) = 0

PicMas2.Print mas2(i, j); " ";

Next j

PicMas2.Print

Next i

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

ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 3

Тема: Динамические массивы данных.

Цель: Получить навыки использования динамического массива данных

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

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

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

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

Dim student() As String

Dim x, n As Integer

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

Frame2.Caption = " Студент N " + Str(n + 1)

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

x = Val(TxtKol.Text)

ReDim student(x) ‘ переопределение размера массива

List1.Clear

Frame2.Visible = True

Frame1.Visible = False

n = 0

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

If n < x Then

student(n) = TxtFam.Text + " " + TxtName.Text

TxtFam.Text = " "

TxtName.Text = " "

n = n + 1

Frame2.Caption = " Студент N " + Str(n + 1)

If n = x Then

Frame2.Caption = " "

MsgBox " Массив заполнен полностью"

Frame2.Visible = False

Frame1.Visible = True

For i = 0 To n - 1

List1.AddItem student(i)

Next i

End If

End If

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