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

Оцени полезность:

6   голосов , оценка 3.667 из 5