EJERCICIO 40

Realizar una aplicación con la sentencia select case que me permita:

IMPRIMIR LOS NÚMEROS DEL DEL 5 AL 100 DE 5 EN 5 en un formulario

IMPRIMIR LOS NÚMEROS DEL DEL 1 AL 200 DE 3 EN 3 en otro formulario

IMPRIMIR LOS NÚMEROS DEL DEL -100 AL 50 DE 2 EN 2 en otro formulario



PRIMER FORMULARIO

 
' Gambas class file

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB ComboBox1_Click()

SELECT CASE ComboBox1.Text
CASE ("SECUENCIA1")
FMain.Hide
FORM1.SHOW
CASE ("SECUENCIA2")
FMain.Hide
FORM2.SHOW
CASE ("SECUENCIA3")
FMain.Hide
FORM3.SHOW
END SELECT

END
PUBLIC SUB Button2_Click()
QUIT
END

SEGUNDO FORMULARIO

IMPRIMIRLOS NÚMEROS DEL DEL 5 AL 100 DE 5 EN 5

' Gambas class file


PUBLIC SUB Button2_Click()

Form1.Hide
FMain.SHOW

END

PUBLIC SUB Button1_Click()

DIM X AS Integer
X = 5
DO WHILE X <= 100
ListBox1.Add(X)
 = X + 5
LOOP
END

PUBLIC SUB Button3_Click()
ListBox1.Clear
END

TERCERO FORMULARIO

IMPRIMIR LOS NÚMEROS DEL DEL 1 AL 200 DE 3 EN 3 

' Gambas class file


PUBLIC SUB Button1_Click()

DIM X AS IntegerX = 1
DO WHILE X <= 200
ListBox1.Add(X)
X = X + 3
LOOP
ENDPUBLIC SUB Button2_Click()
FORM2.HIDE
FMain.ShowEND

PUBLIC SUB Button3_Click()
ListBox1.Clear
END

CUARTO FORMULARIO

IMPRIMIR LOS NÚMEROS DEL DEL -100 AL 50 DE 2 EN 2 

' Gambas class file


PUBLIC SUB Button1_Click()

DIM X AS Integer
X = -100
DO WHILE X <= 50
ListBox1.Add(X)
X = X + 2
LOOP
END
PUBLIC SUB Button2_Click()
FORM3.HIDE
FMain.Show
END

PUBLIC SUB Button3_Click()
ListBox1.ClearEND