Visual basic-ben, hogy oldjam meg ezt a problémát?

De jó lesz, csak jól kell megírni.

Valamint fölösleges a Do While ciklus, jóval egyszerűbb két for ciklus.

A Pascal is elég érthető nyelv :) remélem megérted.

var x, y : integer;

tomb : array[1..32, 1..32] of integer;

osszeg : integer;

begin

//véletlenszám generátor...

Randomize;

//összeg kezdőérték

osszeg := 0;

//feltöltjük a tömböt véletlen számokkal 0..99

for x := 1 to 32 do for y := 1 to 32 do tomb[x, y] := Random(100);

//bejárjuk és összeadjuk a tömb elemeit

for x := 1 to 32 do for y := 1 to 32 do Inc(osszeg, tomb[x, y]);

//Inc(osszeg, tomb[x, y]) --> osszeg := osszeg + tomb[x, y]

//kiírjuk az eredményt

WriteLn(osszeg);

//Enter-re vár

ReadLn;

end.

VBA két makro:

Sub Feltolt()

Randomize

For n = 1 To 10

For i = 1 To 10

Cells(i, n) = Int(Rnd() * 100)

Next i

Next n

End Sub

Sub Osszead()

Dim osszeg As Integer

osszeg = 0

For n = 1 To 6

For i = 1 To 10

osszeg = osszeg + Cells(i, n)

Next i

Next n

Cells(12, 1).Value = osszeg

End Sub

Erre gondolsz ?