Red de conocimiento informático - Problemas con los teléfonos móviles - Problema de programación de VB, por favor deme algún consejo. Genere aleatoriamente una matriz bidimensional de m filas yn columnas y escriba una.

Problema de programación de VB, por favor deme algún consejo. Genere aleatoriamente una matriz bidimensional de m filas yn columnas y escriba una.

Privado?Sub?Command1_Click() Cls Aleatorizar?(Temporizador) Dim?m?As?Integer,?n?As?Integer Dim?a()?As?Integer m?=?InputBox("m=", ?"" ,?5) n?=?InputBox("n=", ?"" ,?10) ReDim?a(1?A?m,?1?A?n) Para?m

Para ?j?=?1?To?na(i,?j)? =?Int(Rnd?*?900?+?100)

Siguiente?jSiguiente?i Llamar?PrintArray(a,? m,?n) Imprimir Llamada?Sort(a,?m,?n) Llamada?PrintArray(a,?m,? n) Imprimir para?j?=?1?To?n If?IsFrimeNumber(a(i, ?j))?Entonces

c?=?c?+?1

Imprimir?a(i,?j);

Si?c? ¿Mod? Entonces la impresión finaliza si

Next j Next i

End Sub

Private Sub Sort(ByRef?Integer,?ByVal?n?As? Integer) Para?1 Para?k?=?j?+?1?A?n

Si?a(i,?k)?

Fin?Si es siguiente?k

Siguiente?jSiguiente?i

Fin?Sub

Privado?Sub?PrintArray(ByRef?a()?As?Integer,?ByVal?m?As ?Integer ,?ByVal?n?As?Integer)For?i?=?1?A?m

For?j?=?1?To?nPrint?a(i,?j); p>

¿Siguiente?j

ImprimirSiguiente?i

Fin?Sub

¿Función?Privada?IsFrimeNumber(ByVal?n?As?Integer)? ¿Integer)?As?Boolean IsFrimeNumber?=?True For?i?=?2?To?Sqr(n)

Si?n Mod?i?=?0?Then IsFrimeNumber?=? ?