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

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

Массивы. Массив– набор однотипных переменных с одним именем, каждая из которых называется элементом массива и имеет свой номер (индекс).

Массив – набор однотипных переменных с одним именем, каждая из которых называется элементом массива и имеет свой номер (индекс).

Массивы могут быть: одномерные (для нумерации элементов используется один индекс), двумерные (для нумерации элементов используются два индекса: номер строки, номер столбца) и N-мерные. Число измерений может достигать 60. Кроме того, массивы подразделяются на статические и динамические.

Статические массивы

Статическим называется массив с заранее известным количеством элементов.

Синтаксис описания (объявления) статического массива:

Dim < Имя массива> (< верхняя граница>) As < Тип > ‘по умолчанию нижняя граница равна 0.

Dim < Имя массива > (< Нижняя граница > To < Верхняя граница >) As < Тип >

Примеры:

Dim a(10) As Single ‘ Одномерный массив с начальной границей, равной 0.

Dim S(3 To 5) As String ‘ Одномерный массив с явными границами.

Dim kdj(1 To 3, 1 To 5) As Byte ‘ Двумерный массив.

Для задания по умолчанию нижней границы массива, равной 1, используется команда Option Base 1, которая ставится в начале модуля.

Примеры:

Option Base 1

‘- - - Заполнение строки таблицы случайными числами - - - - - - -

Sub Mas1()

Dim a(5) As Integer

Dim i As Integer, k As Integer

WorkSheets(“Лист1”).Select ‘ Выбрать Лист1 из семейства листов.

Cells.Clear ‘ Очистить ячейки рабочего листа.

K=2

For i=1 To 5

a(i) = Int(Rnd(i)*100) ‘ Формирование массива a(i).

Cells(k, i+1) = a(i) ‘ Вывод массива a(i) на рабочий лист.

Next i

End Sub

‘- - - - тоже самое в два цикла - - - - - - - - - - - - - - - - - -

Sub Mas2()

Dim a(1 to 5) As Integer, k As Integer

Dim i As Integer

WorkSheets(“Лист1”).Select

Cells.Clear

K=2

For i = 1 To 5 ‘ Формирование массива a(i).

a(i) = Int(Rnd(i)*100)

Next I

For i = 1 To 5 ‘Вывод массива a(i) на рабочий лист.

Cells(k, i+1) = a(i)

Next I

End Sub

‘- - - - Двумерный массив с соответствующей таблицей - - - - - - -

Sub Dmas1()

Dim i As Integer

Dim j As Integer

Dim a2(1 to 3, 1 to 5) As Integer

WorkSheets(“Лист1”).Select

Cells.Clear

For i = 1 To 3 ‘Формирование массива a2(i, j).

For j = 1 To 5

a2(i, j) = Int(Rnd(i*j)*100)

Next j

Next I

For i = 1 To 3 ‘Вывод массива a2(i, j) на рабочий лист.

For j = 1 To 5

Cells(i+1, j+1) = a2(i, j)

Next j

Next I

End Sub

‘- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

Sub Mas3()

Dim a(1 to 5) As Integer, k As Integer

Dim i As Integer, prom As Variant

WorkSheets(“Лист1”).Select

Cells.Clear

K=2

For i = 1 To 5 ‘ Ввод элементов массива с клавиатуры.

Do

Prom = InputBox(“Введите элемент a(“& CInt(i) & “)=”)

If Not IsNumeric(prom) Then MsgBox(“Повторите ввод! ”)

Loop Until IsNumeric(prom)

A(i) = prom

Next I

For i = 1 To 5 ‘ Вывод массива a(i) на рабочий лист.

Cells(k, 2) = “a(“& CInt(i) & “)=”

Cells(k, 3) = a(i)

k = k + 1

Next I