Cita:
Iniciado por ReViJa 
hola, aunque parece que ya esta solucionado te dejo otra manera:
Código:
Dim V(10, 10) As Integer, x As Byte
For x = 1 To 10
V(x, x) = 0
Next
Saludos.
¡WOW! Que capacidad tan sorprendente de desviarse del tema...amigo mio, lo que querían era inicializar en distintos valores constantes, en segundo lugar eso solo llena la diagonal principal, en tercer lugar y
creo que más importante el post es de hace
varios años 
: