martes, 8 de febrero de 2011

EJERCICIO 42

MOSTRAR LOS NUMEROS DEL 1 AL 50 DE 4 EN 4



' Gambas class file


PUBLIC SUB _new()


END


PUBLIC SUB Form_Open()


END


PUBLIC SUB Button1_Click()
DIM X AS Integer
FOR X = 1 TO 50 STEP 4
ListBox1.Add(X)
NEXT
END


PUBLIC SUB Button2_Click()
ListBox1.Clear
END


PUBLIC SUB Button3_Click()
QUIT
END


No hay comentarios:

Publicar un comentario