Найти сумму тех элементов главной диагонали, которые кратны 5 - VB

Узнай цену своей работы

Формулировка задачи:

Заполнить таблицу размером N*N случайными целыми числами из диапазона [1;25]. Найти сумму тех элементов главной диагонали, которые кратны 5. Результат вывести в ячейку N+2, N+2 и залить ее красным цветом.

Решение задачи: «Найти сумму тех элементов главной диагонали, которые кратны 5»

textual
Листинг программы
Sub June_Karou() '
    Dim i As Integer, j As Integer, N As Integer, S As Integer
    N = Val(InputBox("Введите количество элементов", , 8))
    Randomize
    Sheets(1).UsedRange.Clear
    For i = 1 To N
       For j = 1 To N
          Cells(i, j) = Int(Rnd() * 26 - 1)
       Next j
    Next i
    For i = 1 To N
       For j = 1 To N
           If i = j And Cells(i, j) Mod 5 = 0 Then
              S = S + Cells(i, j)
           End If
       Next j
    Next i
    Cells(N + 2, N + 2).Interior.Color = vbRed
    Cells(N + 2, N + 2).Value = S
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

7   голосов , оценка 3.571 из 5
Похожие ответы