martes, 8 de febrero de 2011

EJERCICIO 39

Usar Gambas para desplegar múltiplos de 9 entre 9 y 99 acompañados de su logaritmo utilizando el ciclo for.


Gambas Class File


PUBLIC SUB _New()


END


PUBLIC SUB Form_Open()


END


PUBLIC SUB Button1_Click()
DIM A AS Integer
FOR A = 9 TO 99 STEP 9
Listbox1.Add(A)
NEXT
END


PUBLIC SUB Button2_Click()
DIM B AS Integer
FOR B = 9 TO 99 STEP 9
Listbox2.Add(Log(B))
NEXT
END


PUBLIC SUB Button4_Click()
QUIT
END

No hay comentarios:

Publicar un comentario