for($i=0;$i<10;$i++) { for($j=0;$j<10;$j++) { $ar[i][j] = i*j } } $a = implode("-",$ar[0])
Dim Ar(9, 9) As Integer For i = 0 To 9 For j = 0 To 9 Ar(i, j) = i * j Next j Next i