Работа с массивами 1. Выполнить сортировку массива

Работа с массивами 1. Выполнить сортировку массива размерности 10 2. Осуществить ввод исходного массива 3. Осуществить вывод исходного массива с сообщением 4. Осуществить сортировку массива методом «Пузырька» 5. Осуществить вывод отсортированного массива с сообщением

Встроенная функция Input. Box В предыдущих задачах проблема массовости алгоритма решалась путем ввода новых исходных данных в текстовые поля на форме. Рассмотрим другой способ решения этой проблемы, используя встроенную функцию Input. Box (окно ввода), обращение к которой имеет вид: Input. Box(Подсказка[, Заголовок]) При обращении к функции открывается окно ввода, в рабочей области которого выводится подсказка (первый параметр) и заголовок (второй параметр). В поле ввода окна вводится нужное значение (рис. 3). 1 – Заголовок 2 – Подсказка 3 – Поле ввода Рис. 3. Окно ввода 2

Указания : l 1. Настройку вывода выполнить в окне свойств: l- Multi. Line TRUE l-Special. Effect 2– fm. Special. Effect. Sunken l 2. Соответствующий Text. Box подобрать по размеру l 3. Перевод строки осуществляется оператом - vb. Cr. Lf

l Знайти середнє значення показника роботи підприємства за N місяців. l 3. 1 Определяем производственную программу предприятия 1 2 3 4 5 6 7 8 9 10 11 12 5 3 1 8 4 7 9 4 2 5 6 8

Задание режимов работы Option Explicit Option Base 1

l Private Sub Command. Button 1_Click() l Dim PN As Integer l Dim PSR As Single l Dim ZMes(100) As Single l Dim i As Integer

l' Перенос значений из Tex. Box в ПЕРЕМЕННЫЕ PN = CInt(N)

l'Вычисление среднего значения работы предприятия For i = 1 To PN ZMes(i) = CSng (Input. Box ("Введите значение выработки за " & i & "месяц")) PSR = PSR + ZMes(i) Next i

l' Вывод исходного массива For i = 1 To PN R = R & CStr(ZMes(i)) & vb. Cr. Lf Next i

l' Вывод результата SZ = CStr (PSR / PN) End Sub