Информатика - VB (172571)

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

помогите пожалуйста с решением задач, 10 вариант

Решение задачи: «Информатика»

textual
                            Листинг программы 
                        

                            Sub Variant_Ten()
Dim oCell As Range, tmp
For Each oCell In Range("B10:E20").Cells
    oCell = Int(Rnd * 21 - 10)
Next
With Range("D10:E20")
    Set tmp = .Cells(1, 1)
    For i = 1 To .Rows.Count
        For j = 1 To .Columns.Count
            If .Cells(i, j) > tmp Then Set tmp = .Cells(i, j)
        Next
    Next
End With
MsgBox "Максимальное значение - " & tmp.Value & " в ячейке с адресом " & tmp.Address
End Sub
                        