VB编程IF语句的使用
if<条件>then<语句>
<语句>
...
End
if
与c语言不同,(vb)的条件语句更符合英语的语法,如果then后面所跟的语句只有一条,可以写成:
if
<条件>
then
不用end
if
有时还用到:
if<条件>then
<语句>
Else
<语句>
end
if
还可以在else里再嵌套if语句,如
if
<条件>
then
<语句>
else
if
<语句>
else
<语句>
end
if
绛旓細VB涓殑if璇彞鏄竴绉嶆祦绋嬫帶鍒惰鍙ワ紝瀹冪敤浜庡垽鏂煇涓潯浠舵槸鍚︽垚绔嬶紝鏍规嵁鏉′欢鐨勭湡鍋囨潵鎵ц涓嶅悓鐨勪唬鐮佸潡銆俰f璇彞鐨勫熀鏈牸寮忓涓嬶細If condition Then 鍏朵腑锛屸渃ondition鈥濅唬琛ㄩ渶瑕佸垽鏂殑鏉′欢锛屽鏋滄潯浠舵垚绔嬪垯鎵ц鈥滆鍙ュ潡1鈥濓紝鍚﹀垯鎵ц鈥滆鍙ュ潡2鈥濄俰f璇彞鍦╒B涓槸闈炲父甯哥敤鐨勶紝瀹冨彲浠ュ府鍔╃▼搴忓憳瀹炵幇澶嶆潅鐨勯昏緫鍔熻兘...
绛旓細VB涓殑If Else鐢ㄦ硶锛鐢ㄤ簬鏉′欢鍒ゆ柇锛屾帶鍒剁▼搴忔祦绋嬨傛牴鎹潯浠剁殑鐪熷亣閫夋嫨鎵ц涓嶅悓鐨勪唬鐮佸潡銆傝缁嗚В閲婂涓嬶細涓銆佸熀鏈粨鏋 VB涓殑If Else缁撴瀯鏄熀鏈殑鏉′欢鍒ゆ柇璇彞锛岀敤浜庢牴鎹笉鍚岀殑鏉′欢鎵ц涓嶅悓鐨勬搷浣溿傚叾鍩烘湰缁撴瀯濡備笅锛歷bscript If 鏉′欢 Then ' 鏉′欢涓虹湡鏃舵墽琛岀殑浠ｇ爜 Else ' 鏉′欢涓哄亣鏃舵墽琛岀殑浠ｇ爜 End If ...
绛旓細浣跨敤鏂规硶濡備笅锛氬叕寮忥細=IF(VLOOKUP(B3,鍏ㄥ憳涓瑙堣〃!B:AD,25,0)=0,"",VLOOKUP(B3,鍏ㄥ憳涓瑙堣〃!B:AD,25,0))銆=IF(COUNTIF(key!B:B,H14)>0,"鏄","")銆=IF(COUNTIF(key!B:B,H14)=0,"","鏄")銆=IF(COUNTIF(key!B:B,H14),"鏄","")銆備緥濡侷F(娴嬭瘯鏉′欢,缁撴灉1,缁撴灉2)锛屽嵆濡傛灉...
绛旓細If <鏉′欢> Then 璇彞缁 End If 褰 <鏉′欢>鐨勫间负True锛屾墽琛屸滆鍙ョ粍鈥濓紝鍚﹀垯灏变笉鎵ц鈥滆鍙ョ粍鈥銆俰f璇彞鐨勪竴绉嶆牸寮忓涓嬶細渚1锛歺 = 100 If x >5 Then '杩欓噷浣犺鐞嗚В鍥犱负x=100锛屾墍浠ュ浜 x >5鐨勫垽鏂粨鏋滀负True Print "Ok"End If 杩欎釜浠ｇ爜缁撴灉锛岃緭鍑"Ok"銆備互涓婁唬鐮佸氨鏄細鈥滃鏋渪澶т簬5锛...
绛旓細elsestatements 鍙夊弬鏁般備竴鏉℃垨澶氭潯璇彞锛屽畠浠湪鍓嶉潰鐨 condition 鎴 condition-n 閮戒笉涓 True 鏃舵墽琛屻傝鏄 鍙互浣跨敤鍗曡褰㈠紡锛堢涓绉嶈娉曪級鏉ュ仛鐭皬绠鍗曠殑娴嬭瘯銆備絾鏄紝鍧楀舰寮忥紙绗簩绉嶈娉曪級鍒欐彁渚涗簡鏇村己鐨勭粨鏋勫寲涓庨傚簲鎬э紝骞朵笖閫氬父涔熸槸姣旇緝瀹规槗闃呰銆佺淮鎶ゅ強璋冭瘯鐨勩傛敞鎰 鍦ㄥ崟琛屽舰寮忎腑锛屾寜鐓 If......
绛旓細If Condition Then Statement[Else statement]鈥淚f...Then鈥濆垎鏀粨鏋勭敤浜庣粰绋嬪簭娣诲姞閫昏緫鎺у埗鑳藉姏銆傝繖閲岋紝鈥淐ondition鈥濇槸涓潯浠惰〃杈惧紡锛屸淪tatement鈥濇槸鏉′欢鏈夋晥鐨刅isual Basic璇彞銆備緥濡傦細If Score>=20 Then Label1.Text="You Win!"鏄釜浣跨敤浜嗕笅杩版潯浠惰〃杈惧紡鐨勫垎鏀粨鏋勶細Score>=20 鏍规嵁杩欎釜琛ㄨ揪寮忕殑鍊硷紝...
绛旓細鍥炵瓟锛氭渶鏄撴噦鐨勪唬鐮: if x<=0 then y=2-x endif if x>0 and x<=2 then y=x+2 endif if x>2 and x<=5 then y=x*x endif if x>5 then y=25-x endif
绛旓細if<鏉′欢>then <璇彞> <璇彞> ...End if 涓巆璇█涓嶅悓,(vb)鐨勬潯浠惰鍙ユ洿绗﹀悎鑻辫鐨勮娉,濡傛灉then鍚庨潰鎵璺熺殑璇彞鍙湁涓鏉,鍙互鍐欐垚:if <鏉′欢> then 涓嶇敤end if 鏈夋椂杩樼敤鍒:if<鏉′欢>then <璇彞> Else <璇彞> end if 杩樺彲浠ュ湪else閲屽啀宓屽if璇彞,濡 if <鏉′欢> then <璇彞> else if <...
绛旓細excel 涓VB鍏充簬if鐨勭敤娉濡備笅锛if璇彞鐨鍚箟 if璇彞瀛楅潰鎰忔濆氨鏄鏋滅殑鎰忔濓紝濡傛灉鏉′欢涓虹湡锛岄偅涔堝氨鎵цif璇彞閲岄潰鐨勭▼搴忥紝杩欎釜绋嬪簭锛屼竴鑸寚then鍚庨潰鐨勶紝涓涓猧f璇彞鍙互娌℃湁end if 锛屼絾缁濆涓嶈兘娌℃湁then锛岃繖涓鐐规槸瑕佹敞鎰忕殑锛宨f鈥︹hen鈥︹︾粨鏋 璇ョ粨鏋勪竴鑸敤浜庢瘮杈冪畝鍗曠殑鍒ゆ柇璇彞鎵ц锛屼笅闈互涓娈靛疄渚...
绛旓細If 鎴 If a >= "A" And a <= "Z" Then MsgBox "澶у啓瀛楁瘝"ElseIf a >= "a" And a <= "z" Then MsgBox "灏忓啓瀛楁瘝"Else MsgBox "闈炲瓧姣"End If 鎴 If LCase(a) <> a Then MsgBox "澶у啓瀛楁瘝"ElseIf UCase(a) <> a Then MsgBox "灏忓啓瀛楁瘝"Else MsgBox "闈炲瓧姣"End If ...
