Дан массив B (n, n). найти сумму элементов больших 128

На Visual Basic

Dim B () As Integer, n As Integer, i As Integer, k As Integer, S As Integer

n = Text1. Text

ReDim B (n, n)

S = 0

For i = 1 To n

For k = 1 To n

If B (i, k) > 128 Then S = S + B (i, k)

Next k

Next i

Text2. Text = S

End Sub