Студопедия
МОТОСАФАРИ и МОТОТУРЫ АФРИКА !!!


Авиадвигателестроения Административное право Административное право Беларусии Алгебра Архитектура Безопасность жизнедеятельности Введение в профессию «психолог» Введение в экономику культуры Высшая математика Геология Геоморфология Гидрология и гидрометрии Гидросистемы и гидромашины История Украины Культурология Культурология Логика Маркетинг Машиностроение Медицинская психология Менеджмент Металлы и сварка Методы и средства измерений электрических величин Мировая экономика Начертательная геометрия Основы экономической теории Охрана труда Пожарная тактика Процессы и структуры мышления Профессиональная психология Психология Психология менеджмента Современные фундаментальные и прикладные исследования в приборостроении Социальная психология Социально-философская проблематика Социология Статистика Теоретические основы информатики Теория автоматического регулирования Теория вероятности Транспортное право Туроператор Уголовное право Уголовный процесс Управление современным производством Физика Физические явления Философия Холодильные установки Экология Экономика История экономики Основы экономики Экономика предприятия Экономическая история Экономическая теория Экономический анализ Развитие экономики ЕС Чрезвычайные ситуации ВКонтакте Одноклассники Мой Мир Фейсбук LiveJournal Instagram

Private Sub CommandButton1_Click(). Dim a(1 To 3, 1 To 4), min As Single, i, j As Integer




Dim a(1 To 3, 1 To 4), min As Single, i, j As Integer

For i = 1 To 3 ' Организация цикла для ввода массива по строкам

For j = 1 To 4

a(i, j) = Val(InputBox(" Введите a(" & i & " , " & j & ")" & "элемент массива "))

Next j ' Конец области действия внутреннего цикла

Next i ' Конец области действия внешнего цикла

For i = 1 To 3 ' Организация цикла для обработки массива по строкам

min = a(i, 1) ' Присвоение первого элемента каждой строки переменной min

For j = 1 To 4

If min > a(i, j) Then min = a(i, j) ' Определение минимального элемента

Next j ' Конец области действия внутреннего цикла

Debug.Print " Строка "; i; "min= "; min

Next i ' Конец области действия внешнего цикла

End Sub

Глава 17. Пользовательские процедуры типа Sub и Function в VBA

Подпрограммы

Под процедурой мы понимаем последовательность операций, которую нужно многократно повторять в различных местах приложения. При этом требуемый блок команд записывается в программе только один раз, после чего к нему можно обращаться из любой части программы. С таким блоком мы уже знакомы – это процедура типа Subобработки события командной кнопки.

Private Sub commandButton_click ()





Дата добавления: 2015-03-20; просмотров: 379; Опубликованный материал нарушает авторские права? | Защита персональных данных | ЗАКАЗАТЬ РАБОТУ


Не нашли то, что искали? Воспользуйтесь поиском:

Лучшие изречения: Для студентов недели бывают четные, нечетные и зачетные. 9548 - | 7480 - или читать все...

Читайте также:

 

3.94.129.211 © studopedia.ru Не является автором материалов, которые размещены. Но предоставляет возможность бесплатного использования. Есть нарушение авторского права? Напишите нам | Обратная связь.


Генерация страницы за: 0.002 сек.