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

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

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

                    Листинг программы
                
 
                        
                          
                    
Sub cl14()
Dim i as Integer, j as Integer, N as Integer, S as Integer
N=InputBox("Введите количество элементов")
For i = 1 to N
For j = 1 to N
Cells(i,j)=Int(Rnd()*26-1)
Next j
Next i
S=0
For i = 1 to N
For j = 1 to N
If i=j And Cells(N+2,N+2) Mod 5=0 then
S=S+Cells(N+2,N+2)
Cells(N+2,N+2).Interior.ColorIndex=vdRed
End If
Next j
Next i
End Sub

Решение задачи: «Найти сумму тех элементов главной диагонали, которые кратны 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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы