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