If函数可用来执行简单的条件判断操作，它是“If… then…Else”结构的简写版本。 格式：result=IIf(<条件>，< true部分>，) 功能：当<条件>为真时，IIf函数返回"True部分”，而当<条件>为假时，IⅡ函数返回"False部分”。 说明：result函数的返回值，、及结果变量的类型要一致。 例如， If x)10 Then ． r=1 Else r=2 End If 而用IIf函数来代替：r=IIf(x>1 0，1，2)，可以使程序大大简化。
【例5．2】 某大学实行按学分收费，如果不超过1 2学分，应缴纳学费为4 000元，如果超过1 2学分，每超过1学分，加收500元学费。输入学分U，输出学分U和应缴纳的学费T。 Dim．T As Integer，U As Integer U=InputBox("请输入学分数U：") If U<=12 Then T=4000 Else T=4000 500*(U一1 2) End If Print"学分U=".U"应缴纳的学费T=¨；T