Ejercicio 37

Realizar en un formulario FRAME cada una de las siguientes Áreas; Triángulo,Cuadrado,Círculo y Rectángulo

PUBLIC SUB Button1_Click()

TextBox3.Text = (TextBox1.Text * TextBox2.Text) / 2

END

PUBLIC SUB Button2_Click()

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

END

PUBLIC SUB Button3_Click()

TextBox5.Text = (TextBox4.Text) ^ 4

END

PUBLIC SUB Button4_Click()

TextBox4.Text = ""

TextBox5.Text = ""

END

PUBLIC SUB Button5_Click()

TextBox8.Text = (TextBox7.Text) * (TextBox6.Text) * 3.14

END

PUBLIC SUB Button6_Click()

TextBox6.Text = ""

TextBox7.Text = ""

TextBox8.Text = ""

END

PUBLIC SUB Button7_Click()

TextBox11.Text = (TextBox10.Text) + 2 + (TextBox9.Text) + 2

END

PUBLIC SUB Button8_Click()

TextBox9.Text = ""

TextBox10.Text = ""

TextBox11.Text = ""

END

PUBLIC SUB Button9_Click()

TextBox3.Text = (TextBox1.Text * TextBox2.Text) / 2

TextBox5.Text = (TextBox4.Text) ^ 4

TextBox7.Text = (3.14) * (TextBox6.Text) ^ 2

TextBox10.Text = (TextBox8.Text) ^ 2 * (TextBox9.Text) ^ 2

END

PUBLIC SUB Button10_Click()

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

TextBox4.Text = ""

TextBox5.Text = ""

TextBox6.Text = ""

TextBox7.Text = ""

TextBox8.Text = ""

TextBox9.Text = ""

TextBox10.Text = ""

END

PUBLIC SUB Button11_Click()

Form1.Show

Form2.Hide

END