VBA-вектор, массив, матрица
Формулировка задачи:
Добрый день. Помогите в решении следующих условий:
1.Дан вектор A(n). Найти номер первого минимального значения среди элементов, с индексами кратных трем.
Сгенерировал массив а дальше не могу понять как найти первый минимальный среди элементов с индексами кратных 3.
Public Sub min()
Const N = 10
Dim A(N) As Integer
Dim i As Integer, i_maxN As Integer, i_minN As Integer, min As Integer
Dim str As String, str1 As String
Randomize 'Генератор случайных цифр'
For i = 1 To N
A(i) = Int((10 * Rnd) - 1) '[Случайное число от 1 до 10]
Next i
For i = 1 To N
str = str & A(i) & " "
Next i
2.Тут совсем без понятия.
Дана квадратная матрица порядка N. Найти произведение элементов побочной (главной) диагонали квадратной матрицы и вернуть вектор значений, полученный в результате деления элементов первой строки на найденное произведение.
Решение задачи: «VBA-вектор, массив, матрица»
textual
Листинг программы
Sub Олег_Слевадкин() Dim i%, k%, Min& Cells.Clear ReDim a(1 To 15) For i = 1 To 15 Cells(i, 1) = Int(200 * Rnd + (-100)) Next Min = Cells(i, 1) k = 0 For i = 1 To 15 If Cells(i, 1) <= Min And i Mod 3 = 0 Then Min = Cells(i, 1) k = i End If Next MsgBox "Минимальный эл-т для индексов (i) кратных 3 = " & Min Cells(1, 3) = "Номер строки минимального эл-та =": Cells(1, 7) = k End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д