martes, 8 de febrero de 2011

EJERCICIO 30

2.- Usar Gambas para desplegar múltiplos de 4 entre 60 y 20 acompañados de su
logaritmos de base 10 y base e respectivos


' 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 = 60
DO WHILE A >= 20
ListBox1.Add(A)
A = a - 1
LOOP

END

No hay comentarios:

Publicar un comentario