vb输入身高体重计算bmi判断