Двумерный массив(для практики надо)

[thierryandrey]

"Вычислить сумму и число элементов матрицы, находящихся над главной диагональю"
10 INPUT "ishodnyy massiv n=", n
30 DIM a(n, n)
40 FOR i = 1 TO n
50 FOR j = i + 1 TO n
60 IF i < j THEN s = s + a(i, j)
70 k = k + 1
80 NEXT
90 NEXT
100 PRINT s
110 PRINT k
120 END
что надо переделать чтобы выводилась сумма элементов

[was3110]

А где ввод самого массива? Вот S=0 и выдает

[Jaguar83]

Option Base 1

Private Sub Command1_Click()

Dim a() As Integer
Dim s As Integer, k As Integer
'Ввод размерности массива
n = Val(InputBox("ishodnyy massiv n="))
ReDim a(n, n) As Integer
'Ввод массива
Randomize
For i = 1 To n
For j = 1 To n
a(i, j) = Int(Rnd * 100)
Next
Next
s = 0
k = 0
For i = 1 To n
For j = i + 1 To n
If i < j Then
s = s + a(i, j)
k = k + 1
End If
Next
Next
Print s
Print k

End Sub