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

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

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

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

15.

16. В разделе общих объявлений объявите массив Dim Mas(10)

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

'

Заполнение случайными числами

txtMas.Text = " "

For i = 1 To 10

mas(i) = Int(Rnd * 100)

txtMas.Text = txtMas.Text + " " + Str(mas(i))

Next i

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

For i = 1 To 10

For j = 1 To 9

If mas(j) > mas(j + 1) Then

k = mas(j)

mas(j) = mas(j + 1)

mas(j + 1) = k

End If

Next j

Next i

txtSort.Text = " "

For i = 1 To 10

txtSort.Text = txtSort.Text + " " + Str(mas(i))

Next i

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

Max = mas(1)

For i = 2 To 10

If mas(i) > Max Then Max = mas(i)

Next i

TxtMax.Text = Max

20. Самостоятельно набрать код для нахождения минимального значения в массиве

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

s = 0

For i = 1 To 10

s = s + mas(i)

Next i

TxtSR.Text = s / 10

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

23. Измените программу так, чтобы массив заполнялся буквами русского алфавита, для этого:

- измените тип массива

- в окне кода процедуры обработки события Click для объекта CmdMas набрать

txtMas.Text = " "

For i = 1 To 10

mas(i) = Chr((Rnd * 32) + 224) ' коды русских букв от 224 до 255

txtMas.Text = txtMas.Text + " " + mas(i)

Next i

- в остальных процедурах уберите обращение к функции Str()

24. Проверьте работу программы. Объясните причину ошибки при вызове программы, определяющей среднее значение