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

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

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

Решение:

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

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