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
责任编辑：虫虫
