Ответы на вопрос:
private sub form1_load(byval sender as system.object, byval e as system.eventargs) handles mybase.load dim a() as integer dim b() as integer randomize() dim k as integer dim i as integer i = rnd() * 100 + 1 redim a(i) for k = 0 to i a(k) = rnd() * -1000 + 500 next i = rnd() * 100 + 1 redim b(i) for k = 0 to i b(k) = rnd() * -1000 + 500 next ''''1. dim msg_a as string msg_a = verifysort(a) if msg_a < > cstr(a.length) then msgbox(msg_a) else msgbox("массив а ") end if dim msg_b as string msg_b = verifysort(b) if msg_b < > cstr(a.length) then msgbox(msg_b) else msgbox("массив b ") end if sort(a) msg_a = verifysort(a) if msg_a < > cstr(a.length) then msgbox(msg_a) else msgbox("массив а ") end if ''''' 2. dim h as integer h = inputbox("введите h") i = comparevalue(a, h) if i < > ubound(a) then msgbox("у массива не все элементы больше h. значений больше h " & i & " шт.") else msgbox("у массива все элементы больше h.") end if i = comparevalue(b, h) if i < > ubound(b) then msgbox("у массива не все элементы больше h. значений больше h " & i & " шт.") else msgbox("у массива все элементы больше h.") end if end sub private function verifysort(byref massiv() as integer) as string dim i, j, k as integer dim msg as string for i = massiv.length to 0 step -1 for j = massiv.length - 1 to 1 step -1 if massiv(j) < massiv(j - 1) then for k = 0 to massiv.length - 1 msg = msg & massiv(k) & vbcrlf next return msg end if next j next i return massiv.length end function private function sort(byref massiv() as integer) as integer dim i, j, dump as integer for i = massiv.length to 0 step -1 for j = massiv.length - 1 to 1 step -1 if massiv(j) < massiv(j - 1) then dump = massiv(j) massiv(j) = massiv(j - 1) ' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535 massiv(j - 1) = dump end if next j next i return massiv.length end function private function comparevalue(byref massiv() as integer, byval h as integer) as integer dim count as integer dim i as integer for i = 0 to ubound(massiv) - 1 if massiv(i) > h then count = count + 1 ' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535 next return count end function
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Керис01.03.2022 07:29
-
гений562305.12.2020 12:34
-
kozackilya121.10.2020 20:01
-
bambam430.03.2023 01:18
-
vlada04110422.11.2022 21:19
-
lekhalis200223.09.2021 16:06
-
Kov345613.02.2020 04:54
-
zhaslanovd21.03.2023 05:59
-
polodo621.05.2023 08:05
-
Илья28138216.12.2022 00:17
![Caktus Image](/tpl/img/cactus.png)
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.