TextBox5.Text = (Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text) + Val(TextBox4.Text)) / 4
If TextBox5.Text >= 60 Then
TextBox6.Text = "PROMOVIDO"
Else
TextBox6.Text = "NO PROMOVIDO"
BOTON LIMPIAR:
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox1.Focus()
1 comentario:
JOVEN CALIN: YO ADQUIRI EL VISUAL FOXPRO 9 PERO EN INGLES, COMO LE HAGO PARA CAMBIARLO A ESPAÑOL, DE ANTEMANO MUCHISIMAS GRACIAS...
mi correo es octaviogurrola@gmail.com
estoy a sus ordenes.
Publicar un comentario