If函數(shù)可用來執(zhí)行簡單的條件判斷操作,它是“If… then…Else”結(jié)構(gòu)的簡寫版本。
格式:result=IIf(<條件>,< true部分>,)
功能:當(dāng)<條件>為真時,IIf函數(shù)返回"True部分”,而當(dāng)<條件>為假時,IⅡ函數(shù)返回"False部分”。
說明:result函數(shù)的返回值,、及結(jié)果變量的類型要一致。
例如,
If x)10 Then .
r=1
Else
r=2
End If
而用IIf函數(shù)來代替:r=IIf(x>1 0,1,2),可以使程序大大簡化。
【例5.2】 某大學(xué)實行按學(xué)分收費,如果不超過1 2學(xué)分,應(yīng)繳納學(xué)費為4 000元,如果超過1 2學(xué)分,每超過1學(xué)分,加收500元學(xué)費。輸入學(xué)分U,輸出學(xué)分U和應(yīng)繳納的學(xué)費T。
Dim.T As Integer,U As Integer
U=InputBox("請輸入學(xué)分?jǐn)?shù)U:")
If U<=12 Then
T=4000
Else
T=4000+500*(U一1 2)
End If
Print"學(xué)分U=";U"應(yīng)繳納的學(xué)費T=¨;T
格式:result=IIf(<條件>,< true部分>,)
功能:當(dāng)<條件>為真時,IIf函數(shù)返回"True部分”,而當(dāng)<條件>為假時,IⅡ函數(shù)返回"False部分”。
說明:result函數(shù)的返回值,、及結(jié)果變量的類型要一致。
例如,
If x)10 Then .
r=1
Else
r=2
End If
而用IIf函數(shù)來代替:r=IIf(x>1 0,1,2),可以使程序大大簡化。
【例5.2】 某大學(xué)實行按學(xué)分收費,如果不超過1 2學(xué)分,應(yīng)繳納學(xué)費為4 000元,如果超過1 2學(xué)分,每超過1學(xué)分,加收500元學(xué)費。輸入學(xué)分U,輸出學(xué)分U和應(yīng)繳納的學(xué)費T。
Dim.T As Integer,U As Integer
U=InputBox("請輸入學(xué)分?jǐn)?shù)U:")
If U<=12 Then
T=4000
Else
T=4000+500*(U一1 2)
End If
Print"學(xué)分U=";U"應(yīng)繳納的學(xué)費T=¨;T