martes, 8 de febrero de 2011

EJERCICIO 34

1.- Usando GAMBAS realice una aplicaciòn para desplegar enteros entre 50 y 80


' Gambas class file


PUBLIC SUB _new()


END


PUBLIC SUB Form_Open()


END


PUBLIC SUB Button3_Click()
QUIT
END




PUBLIC SUB Button2_Click()
ListBox1.Clear
END




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





No hay comentarios:

Publicar un comentario