Programa VB que escribe preguntas para calcular el valor del IMC y el índice de producción y conclusión
Atenuar a como único, b como único, c como único
a = Val(Text1)
b = Val(Text2)
c = Ronda(a / (b * 1.6))
Etiqueta6.Caption = c
Si Opción1.Valor Entonces
Si c < 20 Entonces
Label8.Caption = "Demasiado claro"
ElseIf c < 25 Entonces
Label8.Caption = "Moderado"
ElseIf c < 30 Entonces
Label8.Caption = "Sobrepeso"
ElseIf c < 35 Entonces
Label8.Caption = "Obesidad"
ElseIf c >= 35 Entonces
Label8.Caption = "Muy gordo"
End If
Else
Si c < 19 Entonces
Label8.Caption = "Demasiado claro"
ElseIf c < 24 Entonces
Label8.Caption = "Moderado"
ElseIf c < 29 Entonces
Label8.Caption = "Sobrepeso"
ElseIf c < 34 Entonces
Label8.Caption = "Obesidad"
ElseIf c >= 34 Then
Label8.Caption = "Muy gordo"
End If
End If
End Sub p>