Mit

1
Mit ír ki a program
2
A blokk-diagram átalakítása
3
Program megírása
Sub mit_ir_ki() End Sub
Dim
a(5), i, m
a(1) 5 a(2) 1 a(3) 10 a(4) 3
i 1 Do Loop Until a gt 3
If a(i) gt a(i 1) Then Else End if
m a(i) a(i) a(i 1) a(i 1) m
Cells( i , 1) a(i) Cells( i , 2) m i i 1
Cells(i,1) a(i) Cells(i,2) m
4
Tömb feltöltés (eljárás nélkül)
Sub feltolt() Dim A(50, 100), m, n m
InputBox("sor száma m ? ") n
InputBox("oszlop száma n ?") For i
1 To m For j 1 To n A(i, j)
i - j Cells(i, j) A(i, j)
Next j Next i End Sub
pl. m 5 n 7 esetén