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