Контрольная по программированию на VBA для Excel Задание 7 Второй вариант.

ЗАДАНИЕ 7 на тему «Преобразование одномерных массивов»

Записать в массив 6 чисел. Если максимальный элемент находится в первой половине массива, поменять его местами с 1- элементом, если максимум во второй половине массива — поменять его местами с последним элементом. Преобразованный массив вывести на экран.

Решение:

Sub задание7()Dim a(1 To 6) As Single, i As Byte, s As String, Max As Single, k As Single, n As Single 'инициализируем переменные'For i = 1 To 6 'начало цикла'a(i) = Val(InputBox(«Ввидите» + Str(i) + "-е число", «Введите 6 чисел», "")) 'заполняем массив в цикле'Next iMax = a(1) 'пусть первое значение массива максимальное'For i = 1 To 6 'если следующее значение больше значения в первом элементе массива'If a(i) > Max ThenMax = a(i) 'присваиваем наибольшее значение'k = i 'запоминаем в каком месте наибольшее значение'End IfNext iIf k <= 3 Then 'если в первой половине массива'n = a(1) 'сохраняем значение первого элемента'a(1) = Max 'присваеваем первой ячейке максимальное значение'a(k) = n 'на место макимального ставим то что было в первой ячейке массива'Elsen = a(6) 'сохраняем значение первого элемента'a(6) = Max 'присваеваем последней ячейке максимальное значение'a(k) = n 'на место макимального ставим то что было в последней ячейке массива'End IfFor i = 1 To 6 'начало цикла's = s + Str(a(i))Next i
MsgBox «Преобразованный массив:» + vbCrLf + s 'Выводим результат'End Sub

186
RSS
Нет комментариев. Ваш будет первым!
Загрузка...
Этот сайт использует файлы cookies, чтобы облегчить вам пользование нашим веб-сайтом. Продолжая использовать этот веб-сайт, вы даете согласие на использование файлов cookies. Подробнее о том, как мы пользуемся файлами cookies и как ими управлять, вы можете узнать нажав на ссылку ниже.