VB的if语法运用 VB中if 语句的运用
VB\u4e2dif\u7684\u8bed\u6cd5<% if Request.Form("Ashengchan")<0 then
response.write("0")
else
response.write(Request.Form("Ashengchan"))
end lf
%>
\u6216\u8005
\u4e5f\u5c31\u662f\u8bf4\uff0c\u8981\u4e48\u5206\u884c\u5199\uff0c\u8981\u4e48\u90fd\u5199\u5728\u540c\u4e00\u884c\uff0c\u53ea\u80fd\u4e8c\u9009\u4e00\u3002
\u6b64\u5916\u4f60\u7684Response.write\u4e2d\u6709\u4e2a\u9519\u8bef\uff0c\u5df2\u6539\u6b63\u3002
'------------------------\u95ee\u98981-------------------------------------
if c>m then
m=c
else
text4.text=m
end if
\u8fd9\u6837\u7684\u8bdd\uff0c\u5c31\u53ea\u6709\u5728c<=m\u65f6\u624d\u4f1a\u628a\u6700\u5927\u503c\u586b\u5199\u5230text4\u4e2d\uff0c\u4f60\u7684\u7406\u89e3\u6709\u8bef
'-----------------------\u95ee\u98982------------------------------------
\u8fd9\u79cd\u5199\u6cd5\u6bcf\u6b21\uff0c\u56e0\u4e3a\u53ea\u6709\u4e00\u4e2a\u5206\u652f\uff0c\u53ef\u4ee5\u5c11\u4e9b\u4ee3\u7801\uff0c\u6709\u591a\u4e2a\u5206\u652f\u7528else
\u3010\u53e6\u5916\u3011\u8981\u6bd4\u8f83\u4e09\u4e2a\u6570\u5927\u5c0f\u53ef\u4ee5\u8fd9\u6837\uff1a
text4=iif(iif(a<b,b,a)<c,c,iif(a<b,b,a))
vb的if语法的基本结构是：
If ...（条件) Then
...（如果条件吻合则执行的语句)
Else
...（如果条件不吻合则执行的语句)
End if
举个例子，如果1=1则弹出对话框显示a，如果1≠1，则弹出对话框显示b。
If 1 = 1 Then
MsgBox ("a")
Else
MsgBox ("b")
End If
运行结果如图
希望对你有所帮助。
例if i<0 then
print "i为负数!"；
else if i=0 then
print "i为0!"；
else if i>0 then
print"i为正数!";
end if
解析：if语句就是当判断一个条件成立，就执行下面的语句(如果i判断出来小于0，那么条件成立，就执行下面一句，即输出“i为负数！")；如果判断第一个条件时，未成立，则接下去判断第二个条件（如果i判断出来不是小于0而是大于0,则根据第二个判断的条件，应该执行输出“i为0!");以此类推。简而言之就是判断条件，成立就执行下面的语句，若未成立，就接下去再判断第二个条件，若没有满足任何一个条件，则跳出if语句。
不知道你想问啥
VB的if
单行:
if a>b then print "a更大"
换行:
if a>b then
print "a更大"
end if
多个条件
if a>b then
print "a更大"
elseif a=b
print "一样大"
else
print "b更大"
end if
if 条件 then
语句组1
else
语句组2
end if
条件的返回值是一个boolean型
当条件成立时，执行语句组1，否则执行语句组2
绛旓細鎴戣繕鏄墦鍚...case灞炰簬澶氬垎鏀粨鏋勶紝if鍙敤浜庡崟鍒嗘敮鍜屽鍒嗘敮 case鍦ㄥ崟鍙橀噺澶氬垎鏀殑鎯呭喌涓嬪拰IF鍙互浜掓崲涓攃ase瑕佸ソ浜涳紝鏇寸洿瑙傦紝鏇存湁鍙鎬с傚湪澶氫釜鍙橀噺鐨勬椂鍊欏彧鑳界敤if 涓句緥璇存槑鍚 if x>0 and y>0 then msgbox("鍦ㄧ涓璞￠檺")ekseif x<0 and y>0 then msgbox("鍦ㄧ浜岃薄闄")...杩欏効灏变笉鑳界敤...
绛旓細鍩烘湰鐢ㄦ硶鏄細If 鏉′欢1 Then 璇彞娈 End if 鎴栵細If 鏉′欢1 Then 璇彞娈1 Else 璇彞娈2 End if 杩欐牱浣跨敤If璇彞锛屽氨鍙互浣跨▼搴忔湁閫夋嫨鎬х殑鎵ц浠ｇ爜銆傛敞鎰忥紝If璇彞涓瀹氳鏈夊垽鏂潯浠跺拰鎵ц璇彞锛屾渶鍚庣敤 End If 缁撳熬銆備絾濡傛灉鎵ц璇彞鍙湁涓鏉★紝灏卞彲浠ョ缉鎴愪竴琛岋紝涓嶅繀鍐嶅啓End If銆傚锛欼f 鏉′欢1 Then ...
绛旓細妫娴嬩簨浠舵槸鍦ㄦ枃鏈涓殑change浜嬩欢涓垽鏂紝涔熷氨鏄鍙鏂囨湰妗嗘湁鏀瑰彉灏辨娴嬶紒濡傛灉鎶婂叾涓殑 and 鏀瑰啓鎴 or 灏卞彲浠ュ垽鏂叾涓竴涓枃鏈槸鍚︿负绌猴紒private sub text1_change()'鍒ゆ柇鏂囨湰妗嗘渶蹇殑閫熷害杩樻槸鍒ゆ柇瀹冪殑闀垮害鏄惁涓0 if len(text1.text)=0 and len(text2.text)=0 then image5.visible = false...
绛旓細鍦VB涓锛if x鐨勪綔鐢ㄦ槸鏍规嵁x鐨勯昏緫鍊硷紝鍗砊rue鎴朏alse锛屾潵鍐冲畾绋嬪簭鐨勬墽琛屾祦绋嬨傜畝鍗曟潵璇达紝濡傛灉x涓篢rue锛岄偅涔堢▼搴忓氨浼氭墽琛宨f璇彞涓殑浠ｇ爜鍧楋紱濡傛灉涓篎alse锛岄偅涔堢▼搴忓氨浼氳烦杩噄f璇彞涓殑浠ｇ爜鍧楋紝缁х画鎵ц涓嬮潰鐨勮鍙ャ傚湪瀹為檯寮鍙戜腑锛宨f璇彞鏄▼搴忎腑鏈甯哥敤鐨勬祦绋嬫帶鍒惰鍙ヤ箣涓锛屽畠鍙互甯姪寮鍙戣呮牴鎹笉鍚岀殑鎯呭喌...
绛旓細If di > 6 And di <= 8 Then t = 1.2:bi = 2 閫楀彿鏀瑰啋鍙
绛旓細VB涓鍔犲叆If璇彞涓湁涓や釜鏉′欢鍙細1锛夊悓鏃舵弧瓒崇敤And锛堜笌锛夊涓や釜琛ㄨ揪寮忚繘琛岄昏緫杩炴帴銆侱im a As Long, b As Long a = InputBox("a=", a) b = InputBox("b=", b) If a = 5 And b = 6 Then Print a + b2锛夊彧瑕佹弧瓒充竴涓彲鐢∣r锛堟垨锛夌敤鏉ュ涓や釜琛ㄨ揪寮忚繘琛岄昏緫鏋愬彇杩愮畻銆侱im...
绛旓細鍙互鍐欎綔 if a=(b or c)鍏堢湅涓嬪浘 a=b or a=c鍗虫槸鍥句腑榛戣壊閮ㄥ垎 鑰屽浘涓粦鑹查儴鍒嗗張鏄痑鍜宐銆乧骞堕泦鐨勪氦闆嗭紝鎵浠 绛変环浜巃=(b or c)
绛旓細浣鐨処f鏉′欢琛ㄨ揪寮90<=a<=100涓嶈兘杩欐牱鍐,搴旇杩欐牱鍐90<=a And a<=100 鎵浠ヨ繖娈电▼搴忓簲璇ヨ繖鏍峰啓 If 90<=a And a<=100 Then Print "浼"ElseIf 80<=a And a<90 Then Print "鑹"ElseIf 70<=a And a<80 Then Print "涓"ElseIf 60<=a And a<70 Then Print "鍙婃牸"ElseIf 0<=a ...
绛旓細if璇彞鏍规嵁鍒ゅ畾缁撴灉锛堢湡鎴栧亣锛夋墽琛屼竴缁勮鍙ワ紝鏈夊崟琛屽拰澶氳鍧楀舰寮忥紝1銆 if „„ then鍒嗘敮缁撴瀯 if condition then鎴栬咃細if condition then statements end if if condition then statement 鍗曡褰㈠紡 鎴栬咃細if condition then statements1 else statements2 end if ...
绛旓細End If If b >= 14.7 Then 'MsgBox ("鎭枩锛***")MsgBox "棰濆脊鍑虹殑鍐呭",VbInformation,"浣犵殑Msgbox鏍囬"End If End Sub 浠ヤ笅涓簃sgbox鐨勭敤娉锛屽嚭鑷狹SDN锛屼笉鐭ラ亾浣犳湁娌℃湁鑰愬績鐪嬪畬銆傝娉 MsgBox(prompt[, buttons] [, title] [, helpfile, context])MsgBox 鍑芥暟鐨勮娉鍏锋湁浠ヤ笅鍑犱釜鍛藉悕鍙傛暟锛...
