Pregunta de programación en VB Diseñe una aplicación que muestre las raíces cuadradas aritméticas de los números naturales del 150 al 200 en filas y columnas.

Sub?printsqr(x,?y,?modn)

Cls

Countit?=?0

Para?i? =?x?To?y

'Para mayor claridad, diseñe cada raíz cuadrada para que se muestre en 20 columnas

Print?Tab(1? ?Countit?*?20 );?Sqr (i);

¿Contar?=?(¿Contar? ?1)?Mod?modn

'Si?Contar?=?0?Entonces?Imprimir

¿Siguiente?i

Fin?Sub

Privado?Sub?Command1_Click()

Llamar?printsqr(150,?200,?3 )?'Imprimir De la raíz cuadrada de 150 a 200, imprimir 3 por línea

End?Sub