EJERCICIO 15

IMPRIMIR LA PALABRA PATO 10 VECES EN UN LISTBOX1 Y EN UN LABEL1

' Gambas class file

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB Button3_Click()QUIT
END

PUBLIC SUB Button2_Click()
Label2.Caption = ""
END

PUBLIC SUB Button1_Click()DIM x AS Integer
FOR x = 1 TO 5
Label2.Caption = ("pato")
NEXT
END
PUBLIC SUB Button5_Click()ListBox1.Clear
END

PUBLIC SUB Button4_Click()DIM A AS Integer
FOR A = 1 TO 10
ListBox1.Add("pato")
NEXT
END