spero che sia giusto e che sia quello che volevi
codice:
dim num_partite,num_risultati,ind,num_righe,cam,cont,arr_risultati
'/****************************** configurazione: start
arr_risultati=array(1,"X",2)
num_partite=3
'/****************************** configurazione: end
num_risultati=ubound(arr_risultati)+1
ind=0
cont=0
num_righe=num_risultati^num_partite
redim matrice(num_righe-1,num_partite-1)
for colonna=ubound(matrice,2) to 0 step -1
cam=num_risultati^((num_partite-1)-colonna)
for riga=0 to ubound(matrice)
cont=cont+1
matrice(riga,colonna)=arr_risultati(ind)
if cont=cam then
cont=0
ind=ind+1
if ind>num_risultati-1 then ind=0
end if
next
next
'stampo
for i=0 to ubound(matrice)
for j=0 to ubound(matrice,2)
if j>0 then response.Write(" - ")
response.Write(matrice(i,j))
next
response.Write("
")
next
'libero
erase matrice