toplam degerını her donem için hafızada tutmasını ıstıyorum?

[semira_]

Her donem gerı(j,w) tuttugu deger degısmesın yanı donem 2 oldugunda bu deger sıfıra eşit olup tekrardan donguye gırmesın , donem 1 de tuttugu deger sabıt kalsın .

Dim geri(100, 100)

geri(0, 0) = 0
toplam = 0
For j = 1 To donem
toplam
For w = 1 To merkez sayısı
toplam = toplam + geridonenmiktar(j, w)
geri(j, w) = toplam
Next w
Next j

 

[semira_]

For j den sonra toplam yazdım onun bır anlamı yok