Ответы на вопрос:
option explicit
dim s,k,i,j,max,min,a
privat sub cmdstart_click()
pic1.cls
redim a(1 to 5,1 to 3)
pic1.scale(0,+1,3+1)
randomize: pic1.forecolor=vbblue
for i=1 to 5
for j=1 to 3
a(i,j)=int(rnd*100): pic1.currentx=j
pic1.currenty=i: pic1.print a(i,j)
next
next
max=a(1,1)
min=a(1,1)
for i=1 to 5
for j=1 to 3
if a(i,j)> max and a(i,j)< min then
end if
next
next
pic1.forecolor=vbred: pic1.print max, min
end sub
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
batyka22808.02.2023 00:30
-
ПолинаКот19706.01.2023 00:58
-
куликов4444345617.05.2020 03:20
-
снежана19513.05.2022 02:51
-
ekaterinaf7922.03.2022 04:33
-
nadyushasukhan18.05.2023 13:37
-
ПолинаКот19705.11.2022 11:05
-
Anna111125127.05.2022 00:30
-
7995423619.09.2022 11:34
-
ssmolden29.03.2020 13:50
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.