VB示例：健康程度计算器改写版