Ejercicio 16

“ÁREA DE UN CÍRCULO”

' Gambas class file

PUBLIC SUB Button1_Click()

DIM PII AS Float

PII = 3.14

TextBox2.Text = (PII) * (TextBox1.Text) * (TextBox1.Text)

END

PUBLIC SUB Button2_Click()

TextBox1.Text = ""

TextBox2.Text = ""

END

PUBLIC SUB Button3_Click()

FMain.Show

Form1.Hide

END