martes, 8 de febrero de 2011

EJERCICIO 35

MULTIPLOS DE 7


Gambas class file

PUBLIC SUB Button1_Click()
DIM A AS Integer
A = 0
DO
ListBox1.Add(A)
A = A + 7
LOOP WHILE A <= 50
END

PUBLIC SUB Button4_Click()
DIM A AS Integer
A = 0
DO
ListBox2.Add(A ^ (1 / 3))
A = A + 7
LOOP WHILE A <= 50
END

No hay comentarios:

Publicar un comentario