напешите пожалуйста программу в VB6?

допустим матрица размерностью n, а матрица внесена в массив matrix тогда
sum=0
for q=1 to n
if ( matrix( n, n ) >=0 ) then
sum=sum + matrix ( n, n )
end if
next
' определили суму положительных элементов главной диагонали
for q = 1 to n
if ( matrix ( n, n ) < 0 ) then
matrix (n, n) = sum
end if
next
' заменили отрицательные элементы главной диагонали на сумму положительных элементов
' а вывести можно например в метку label1
for q = 1 to n
for w = 1 to n
label1.caption = label1.caption + matrix ( q, w )
next
label1.caption = label1. caption + chr(13) + chr(10)
next

dim a(n,n)

значения фиг знает откуда брать

s=0

for i=1 to n
if a(i,i)>0 then s=s+a(i,i)
next i

for i=1 to n
if a(i,i)<0 then a(i,i)=s
next i

for i=1 to n
for j=1 to n
print a(i,j);
next j
next i