Programación del conjunto de matrices Vb

Defina una matriz con una fila y una columna más, como una tabla, y coloque los resultados resumidos al final.

¿Privado? ¿Sub? Command1_Click()

¿Atenuar? Fuente

¿Fuente? =?"4,35,43,56;43,65,34,26;34,54,35,56"

¿Fuente? =?InputBox("Las filas están separadas por punto y coma y las columnas por comas"):? ¿si? ¿fuente? =?¿Vacío? ¿Entonces qué? ¿abandonar? "Sub" se puede cambiar a una entrada de diálogo.

¿Oscuro? Tabla (1? ¿Adónde ir? 4,? 1? ¿Adónde ir? 5)

¿Oscuro? Irlanda. arCol

Irene. =?split(source,?";")?línea de cadena separada

dim? ¿I? ¿Como? Entero,? j? ¿Como? Entero

Llena la tabla con datos.

¿Para qué? ¿I? =?1?¿Adónde ir? 3?Tres líneas

arCol? =?Split(arLine(i?-?1),?",")?La columna que separa cada línea de cadenas.

¿Para qué? j? =?1?¿Adónde ir? 4?Cuatro columnas

Tabla (i,?j)? =?Val(arCol(j?-?1))

Entonces

Entonces

¿Atenuar? sumabaja? Sumkol

Resume una lista de tablas y agrega los resultados a la última lista de tablas.

¿Para qué? ¿I? =?1?¿Adónde ir? 3?Tres líneas

¿Para qué? j? =?1?¿Adónde ir? 4?Cuatro columnas

Tabla(I,?5)?=?Tabla(I,?5)?+?Tabla(I,?j)? Acumule el número de pares hasta la última columna.

¿Tabla (4,j)? =?Tabla(4,j)? +?Tabla(i,?j)? Agrega números en la misma columna a la última fila.

Entonces

Entonces

Mostrar

¿Para qué? ¿I? =?1?¿Adónde ir? ¿UBound(table,?1)?Cuatro líneas

¿Para qué? j? =?1?¿Adónde ir? ¿UBound(table,?2)?Cinco columnas

¿Imprimir? tabla(i,?j),? ;

Luego

Imprimir

Luego

¿Finalizar? Submarino