Найти сумму тех элементов главной диагонали, которые кратны 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д