martes, 8 de febrero de 2011

EJERCICIO 31

Usando GAMBAS realice una aplicaciòn para desplegar enteros entre 50 y 80


‘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 = 50
Do While A <= 80 
Listbox1.Add(A)
A = A + 1
Loop 
End

No hay comentarios:

Publicar un comentario