If函數(shù)可用來執(zhí)行簡(jiǎn)單的條件判斷操作,它是“If… then…Else”結(jié)構(gòu)的簡(jiǎn)寫版本。
格式:result=IIf(<條件>,< true部分>,)
功能:當(dāng)<條件>為真時(shí),IIf函數(shù)返回"True部分”,而當(dāng)<條件>為假時(shí),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),可以使程序大大簡(jiǎn)化。
【例5.2】 某大學(xué)實(shí)行按學(xué)分收費(fèi),如果不超過1 2學(xué)分,應(yīng)繳納學(xué)費(fèi)為4 000元,如果超過1 2學(xué)分,每超過1學(xué)分,加收500元學(xué)費(fèi)。輸入學(xué)分U,輸出學(xué)分U和應(yīng)繳納的學(xué)費(fèi)T。
Dim.T As Integer,U As Integer
U=InputBox("請(qǐng)輸入學(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é)費(fèi)T=¨;T
格式:result=IIf(<條件>,< true部分>,)
功能:當(dāng)<條件>為真時(shí),IIf函數(shù)返回"True部分”,而當(dāng)<條件>為假時(shí),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),可以使程序大大簡(jiǎn)化。
【例5.2】 某大學(xué)實(shí)行按學(xué)分收費(fèi),如果不超過1 2學(xué)分,應(yīng)繳納學(xué)費(fèi)為4 000元,如果超過1 2學(xué)分,每超過1學(xué)分,加收500元學(xué)費(fèi)。輸入學(xué)分U,輸出學(xué)分U和應(yīng)繳納的學(xué)費(fèi)T。
Dim.T As Integer,U As Integer
U=InputBox("請(qǐng)輸入學(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é)費(fèi)T=¨;T

