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