如果你楼上的是真的,那么请使用一下语句: select case d case is<1.25 msgbox “粒径太小,超过预期” case 1.25 p=200 case is=<1.5 p=195 case is=<1.75 p=190 case is=<2 p=185 case is=<2.25 p=180 case is=<2.5 p=175 case is=<3 p=170 case is=<3.5 p=1765 case is=<5 p=160 case else msgbox "粒径太大,超出预期!" end select