Imprimir los numeros del 1 al 20
' Gambas class file
PUBLIC SUB _new()
END
PUBLIC SUB Form_Open()
END
PUBLIC SUB Button2_Click()
QUIT
END
PUBLIC SUB Button1_Click()
DIM a AS Integer
FOR a = 1 TO 20
ListBox1.Add(A)
NEXT
END
PUBLIC SUB Button3_Click()
ListBox1.Clear
END
No hay comentarios:
Publicar un comentario