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 Button3_Click()
ListBox1.Clear
ListBox2.Clear
END
PUBLIC SUB Button4_Click()
QUIT
END
No hay comentarios:
Publicar un comentario