Inicializar Matriz En Vb6

[osanbla]

ME GUSTARIA PODER INICIALIZAR UNA MATRIZ DE 10x10 EN VISUAL BASIC 6.0,CON UNOS VALORES NUMERICOS CONSTANTES. ALGO EQUIVALENTE A LO QUE EN LENGUAJE C SERIA:

int matriz[10][10]={20,45,67,5,21,76,..........}

HE ESTADO MIRANDO EN MANUALES Y NO HE VISTO EN NINGUN LADO COMO SE INICIALIZA UN ARRAY CON UNOS VALORES PREDETERMINADOS.

GRACIAS

[Roly]

con la funcion array se puede cargar un arreglo:
Dim Matriz(1 To 5) As Integer
Matriz = Array(1, 2, 3, 4, 5)

[osanbla]

el problema es que el array es de dos dimensiones es un 10x10 esa solucion solo me sirve si es de una???

gracias

[fbnds]

yo lo que hice hace tiempo fue hacer A(1,1)= 20; A(1,2)= 45; etc, ya que no encontré un modo de hacer en forma mas rápida o eficiente.

[diosquez]

dim i as integer
dim j as integer

for i = 0 to 9
for j = 0 to 9
'inicializando la matriz con cero
matrix(i,j)= 0
next
next

[Eternal Idol]

Iniciado por diosquez

dim i as integer
dim j as integer

for i = 0 to 9
for j = 0 to 9
'inicializando la matriz con cero
matrix(i,j)= 0
next
next

Es lo que se pidio y justo a tiempo

[MaxExtreme]

Iniciado por Eternal Idol

Es lo que se pidio y justo a tiempo

x''DDD

[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.

[Eternal Idol]

Iniciado por ReViJa

hola, aunque parece que ya esta solucionado te dejo otra manera:

Gran aporte sin dudas

[_Lucifer_]

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 :

29/06/04 17:37:58