Red de conocimiento informático - Consumibles informáticos - Cómo resolver preguntas de programación de datos de alta dimensión

Cómo resolver preguntas de programación de datos de alta dimensión

Subcomando privado 1_Click()

Dim () como un número entero

M = InputBox("Ingrese el número de líneas m:")

N = InputBox ("Ingrese el número de columnas n:")

ReDim a(m, n)

Para i = 1 a m

Para j = 1 a n

A(i,j) = InputBox("Por favor, ingrese a("&i&","& Johnson & Johnson.")")

Imprimir a(i , j );

Siguiente j

Imprimir

Siguiente yo

Max = a(1, 1)

Para i = 1 a m

Para j = 1 a n

Si Max & lt entonces a(i,j)

Max = a(i, j)

x = i

y = j

Terminará si...

Siguiente j

p >

Siguiente I

Imprimir

El valor máximo de Imprimir es "&max& en la primera columna "&x&OK" &;y&"

Conector final