martes, 8 de febrero de 2011

Imprimir los numeros del 1 al 20

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 en la entrada