Студопедия

Главная страница Случайная страница

Разделы сайта

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






  • Сервис онлайн-записи на собственном 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. Проверьте работу программы. Объясните причину ошибки при вызове программы, определяющей среднее значение







© 2023 :: MyLektsii.ru :: Мои Лекции
Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав.
Копирование текстов разрешено только с указанием индексируемой ссылки на источник.