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.
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?=? ?