Red de conocimiento informático - Problemas con los teléfonos móviles - Programa VB que escribe preguntas para calcular el valor del IMC y el índice de producción y conclusión

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