EJERCICIO 35

Utilizando el editor de Menu realizar las siguientes operaciones:

Multiplos de 3

Selec Case X=5; X=-1; X=2

Multiplos de 7

PRIMER FORMULARIO

' Gambas class file

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB Label1_MouseDown()

CALCULOS_YSECUENCIAS.Popup

CASOS.Popup

END

PUBLIC SUB SALIR_Click()

QUIT

END

PUBLIC SUB MULTIPLOS3_Click()

FMain.Hide

Form1.Show

END

PUBLIC SUB TABLA_DIVIDIR_Click()

FMain.Hide

Form2.Show

END

PUBLIC SUB SELECT_CASE_Click()

FMain.Hide

Form3.Show

END

PUBLIC SUB DO_LOOP_WHILE_Click()

FMain.Hide

Form7.Show

END

SEGUNDO FORMULARIO

' Gambas class file

PUBLIC SUB Button1_Click()

Form1.Hide

FMain.Show

END

PUBLIC SUB Button2_Click()

DIM A AS Integer

A = -48

DO WHILE A <= 51

ListBox1.Add(A)

A = a + 3

LOOP

END

PUBLIC SUB Button3_Click()

ListBox1.Clear

END


TERCER FORMULARIO
' Gambas class file




PUBLIC SUB Button2_Click()
Form3.Hide
FMain.Show
END


PUBLIC SUB Button1_Click()
SELECT CASE ComboBox1.Text
CASE "X=5"
Form3.Hide
Form4.Show


CASE ("X=-1")
Form3.Hide
Form5.Show


CASE "X=2"
Form3.Hide
Form6.Show
END SELECT
END


CUARTO FORMULARIO
' Gambas class file




PUBLIC SUB Button1_Click()
Form4.Hide
Form3.Show
END


PUBLIC SUB Button2_Click()
TextBox1.Text = ((5) ^ 3) + ((5) ^ 2) - (5) + (12)
END


QUINTO FORMULARIO
' Gambas class file




PUBLIC SUB Button1_Click()
Form5.Hide
Form3.Show
END


PUBLIC SUB Button2_Click()
TextBox1.Text = ((-1) ^ 3) + ((-1) ^ 2) - (-1) + (12)
END


SEXTO FORMULARIO
' Gambas class file




PUBLIC SUB Button1_Click()
Form6.Hide
Form3.Show
END


PUBLIC SUB Button2_Click()
TextBox1.Text = ((2) ^ 3) + ((2) ^ 2) - (2) + (12)
END


SEPTIMO FORMULARIO


' Gambas class file




PUBLIC SUB Button1_Click()
Form7.Hide
FMain.Show
END


PUBLIC SUB Button3_Click()
ListBox1.Clear
ListBox2.Clear
END


PUBLIC SUB Button2_Click()
DIM A AS Integer
A = 0
DO
ListBox1.Add(A)
A = A + 7
LOOP WHILE A <= 50
END


PUBLIC SUB Button4_Click()
DIM A AS Integer
A = 0
DO
ListBox2.Add(A ^ (1 / 3))
A = A + 7
LOOP WHILE A <= 50
END