desplegar múltiplos de 4

Usar visual basic para desplegar múltiplos de 4 entre 60 y 20 acompañados de su

logaritmos de base 10 y base e respectivos (a revisar funciones visual basic )

' 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

PUBLIC SUB Button4_Click()

DIM B AS Integer

B = 60

DO WHILE B >= 20

ListBox2.Add((Log)(B))

B = B - 1

LOOP

END