Найти минимальный элемент массива Z и заменить его числом 999 - VBA
Формулировка задачи:
Помогите пожалуйста,срочно нужно
9. Получить массивы X, Y и Z, элементы которых равны соответственно x =2.5+i, y =2x , z =y -2x ; 1 i 10. Найти минимальный элемент массива Z и заменить его числом 999. Вывести элементы массива Z до и после этой замены.
Решение задачи: «Найти минимальный элемент массива Z и заменить его числом 999»
textual
Листинг программы
Option Explicit 'указание интерпретатору BASIC проверять, что все данные объявлены Sub МинимумПрячься() Dim i As Long 'счётчик цикла Dim m As Long 'счётчик минимумов (минимум здесь будет не один) Dim X(1 To 10), Y(1 To 10), Z(1 To 10), Z1(1 To 10) 'массивы Dim minZ 'минимум для Z 'заполняем массивы For i = 1 To 10 X(i) = 2.5 + i Y(i) = 2 * X(i) Z(i) = Y(i) - 2 * X(i) 'все Z(i) = 0 (в этой задаче) ' Z(i) = Y(i) - X(i) 'все Z(i) = X(i) (в какой-либо другой, аналогичной, задаче) Z1(i) = Z(i) 'копия массива Z (у меня команда Z1 = Z не проходит: стоит VBA5) If i = 1 Then minZ = Z(1): Z(i) = 999: k = i: m = m + 1 'сначала предполагаем, что Z(1) - минимум Else If Z(i) <= minZ Then minZ = Z(i): Z(i) = 999: m = m + 1 'считаем минимумы End If Next MsgBox "Число минимальных элементов массива Z: " & m, vbExclamation, "Школьный вариант" MsgBox "Массив Z до замены минимумов: " & vbTab & Join(Z1, "; ") & vbCr & vbCr & _ "Массив Z после замены минимумов: " & vbTab & Join(Z, "; ") End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д