 |
在VB編程中If函數(shù)可用來(lái)執(zhí)行簡(jiǎn)單的條件判斷操作,它是“If… then…Else”結(jié)構(gòu)的簡(jiǎn)寫(xiě)版本。 格式:result=IIf(<條件>,< true部分>,<False部分>) 功能:當(dāng)<條件>為真時(shí),IIf函數(shù)返回"True部分”,而當(dāng)<條件>為假時(shí),IⅡ函數(shù)返回"False部分”。 說(shuō)明:result函數(shù)的返回值,<True部分>、<False部分>及結(jié)果變量的類(lèi)型要一致。 例如, If x)10 Then . r=1 Else r=2 End If 而用IIf函數(shù)來(lái)代替:r=IIf(x>1 0,1,2),可以使程序大大簡(jiǎn)化。 【例5.2】 某大學(xué)實(shí)行按學(xué)分收費(fèi),如果不超過(guò)1 2學(xué)分,應(yīng)繳納學(xué)費(fèi)為4 000元,如果超過(guò)1 2學(xué)分,每超過(guò)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
|
作者:未知 | 文章來(lái)源:新疆二域軟件開(kāi)發(fā)網(wǎng) | 更新時(shí)間:2007-10-8 23:08:48
|
|
 |
 |
最新文章 |
|
|
 |