Quiero diseñar un programa, preferiblemente con VB, pero también puedes usar otros programas siempre que sea más fácil que VB.

Opción?Explícita

Privada?Const?p?=?0.997?'Densidad

Privada?Sub?Command1_Click()

Si?Text1.Text?=?""?Entonces

Label5.Caption?=?"L="?&?CStr(Val(Text4.Text)?/?(Val(Text2.Text) ?*?Val(Text3.Text)?*?p))

Text1.Text?=?Label5.Caption

ElseIf?Text2.Text?=?""?Then

Label5.Caption?=?"R="?&?CStr(Val(Text4.Text)?/?(Val(Text1.Text)?*?Val(Text3.Text)?*? p))

Text2.Text?=?Label5.Caption

ElseIf?Text3.Text?=?""?Then

Label5.Caption?= ?"H="?&?CStr(Val(Text4.Text)?/?(Val(Text2.Text)?*?Val(Text1.Text)?*?p))

Texto3. ¿Texto?=?Label5.Caption

¿Else?'If?Text4.Text?=?""?Entonces

Label5.Caption?=?"M="?&?CStr (Val(Text1.Text)?*?Val(Text2.Text)?*?Val(Text3.Text)?*?p)

Texto4.Text?=?Label5.Caption

¿Fin?Si

Fin?Sub

Privado?Sub?Form_Load()

Etiqueta1.Caption?=?"Longitud L:"

Etiqueta2.Caption?=?"Ancho R:"

Etiqueta3.Caption?=?"Altura H:"

Etiqueta4.Caption?=?"Peso M :"

Label5.Caption?=?" Resultado: "

Texto1.Text?=?"30"

Texto2.Text?=?"40 "

Texto3.Texto?=?"50"

Texto4.Texto?=?""

Comando1.Caption?=?"&Calcular "

End?Sub

'Se contará lo que quede en blanco