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