求 VB 大神过来围观帮忙，双重判断语句如何写，万分感激 - 编程论坛

chen35232014-10-24 16:14

if 性别文本输入框＝“女”then
  if 身高＞＝150 and 身高＜160　then
     if （体重系数计算公式）＞＝18　and （体重系数计算公式）<20 then 显示文本框＝“体重正常”
  elseif 身高＞＝160 and 身高＜170　then
  elseif 身高＞＝170 and 身高＜180　then
  end if
elseif　性别文本输入框＝“男”then
　男性判断内容
end if
只列举了大纲　还是你自己完成吧

[ 本帖最后由 chen3523 于 2014-10-24 16:25 编辑 ]

风吹过b2014-10-24 16:31

查表啊。
整合起来。这张表就是这样的：

性别    身高1    身高2    体重指数1    体重指数2    结论
女    140    150    0    20    轻
女    140    150    20.1    99    标准
女    150    160    0    24    标准
女    150    160    24.1    99    重
女    160    170    0    22    标准
女    160    170    22.1    99    重
女    170    990    0    20    标准
女    170    990    20.1    99    重
男    140    160    0    22    标准
男    140    160    22.1    99    重
男    160    990    0    20    标准
男    160    990    20.1    99    重

循环
if 性别＝性别 and (身高>身高1 and 身高<＝身高2） and ((体重指数>体重指数1 and 体重指数<＝体重指数2）) then
    结论＝结论
    退出循环
end if
循环结束

写完后发现女的表格没优化，男的表格优化了。你自己看着办吧。