If ³¯z¦¡¬O³Ì¦³¥Îªº±±¨îµ²ºc¤§¤@¡C¥¦¥i¦b¬Y±ø¥ó¬° True ®É¡A¥Î¨ÓÅçºâ¤@²Õ³¯z¦¡¡F¦Ó¬Y±ø¥óY¬° False¡A«hÅçºâ¤£¦P²Õªº³¯z¦¡¡C
ª`·N ·í®æ¦¡¤Æ±ø¥ó¦¡¤½¦¡®É¡A½Ð¤@©wn¨Ï¥Î ElseÃöÁä¦r¡A§_«h¤£²Å¦X If ±ø¥óªº¼ÆÈ¥i¯à¤£·|«O«ùì©lªº®æ¦¡¡CYnÁ×§Kµo¥Í³oºØ±¡ªp¡A½Ð¨Ï¥Î DefaultAttribute ¨ç¦¡ (If...Else formula = DefaultAttribute)¡C
½d¨Ò
¬Y¤½¥qpµe´£¼· 4% ªº¬õ§Qµ¹û¤u¡A¦ý¾P°â³¡ªùªºû¤u±N¥i±o¨ì 6%¡C¤U¦C¤½¦¡¨Ï¥Î If ³¯z¦¡¨Ó°õ¦æ³o¶µ¥ô°È¡G
Rem ¦h¦æ If ½d¨Ò 1 If {û¤u.³¡ªù} = "Sales" Then formula = {û¤u.Á~¤ô} * 0.06 Else formula = {Employee.Salary} * 0.04 End If
¦b¥»½d¨Ò¤¤¡A¦pªG±ø¥ó {Employee.Dept} = "Sales" Åçºâ¬° True¡A«h·|°õ¦æ
formula = {û¤u.Á~¤ô} * 0.06
³¯z¦¡¡C§_«h·|³B²z Else ¤§«áªº³¯z¦¡¡A¤]´N¬O
formula = {Employee.Salary} * 0.04
¡C
°²©w¥t¤@®a¤½¥qn´£¼· 4% ªº¬õ§Q (³Ì¤Ö $1,000) µ¹û¤u¡C½Ðª`·N½d¨Ò¤¤¨Ã¥¼¥]§t Else ¤l¥y¡A¦]¬° Else ¤l¥y¬O¿ï¾Ü©Êªº¡A¦b¦¹³B¨Ã¤£»Ýn¡C
Rem Multi-line If example 2 formula = {Employee.Salary} * 0.04 If formula < 1000 Then formula = 1000 End If
²{¦b°²©w«ez¤½¥qÁÙn±N¬õ§Qªº³Ì°ª¤Wq¬° $5,000 ¤¸¡C²{¦b»Ýn¨Ï¥Îªº¬O ElseIf ¤l¥y¡C½Ðª`·N ElseIf ¥u¦³¤@Ó¦r¡C¥H¤U½d¨Ò¥u¦³¤@Ó ElseIf ¤l¥y¡A¥i¬O±z¥i¥H¨Ì»Ýn¥ô·N¥[²K¡C
ª`·N ¨CÓ If ³¯z¦¡³Ì¦h§¡¥u¯à¦³¤@Ó Else ¤l¥y¡C
¦pªG If ©Î ElseIf ±ø¥ó§¡¤£¬° True¡AElse ¤l¥y´N·|°õ¦æ¡C
Rem Multi-line If example 3 formula = {Employee.Salary} * 0.04 If formula < 1000 Then formula = 1000 ElseIf formula > 5000 Then formula = 5000 End If
½d¨Ò
°²³]¬Y¤½¥q·Qnpºâ¨C¦ìû¤uµ|´Úªº¦ôpÈ¡A¨ÃÅã¥Ü¾A·íªº°T®§¡C¦¬¤J¦pªG§C©ó $8,000 ¤¸«h¤£¥Îúµ|¡A¦¬¤J¦b $8,000 ¨ì $20,000 ¤¸¤§¶¡ªº»Ýú¯Ç 20% ªºµ|´Ú¡A¦¬¤J¦b $20,000 ¨ì $35,000 ¤¸¤§¶¡ªº»Ýú¯Ç 29% ªºµ|´Ú¡A¦Ó $35,000 ¤¸¥H¤W¦¬¤JªÌ»Ýúµ| 40% ªºµ|´Ú¡C
Rem Multi-line If example 4 Dim tax As Currency, income As Currency income = {û¤u.Á~¤ô} Dim message As String If income < 8000 Then tax = 0 message = "§Kµ|" ElseIf income >= 8000 And income < 20000 Then message = "³Ì§C" tax = (income - 8000)*0.20 ElseIf income >= 20000 And income < 35000 Then message = "¤¤µ¥" tax = (20000 - 8000)*0.20 + (income - 20000)*0.29 Else message = "³Ì°ª" tax = (20000 - 8000)*0.20 + (35000 - 20000)*0.29 + _ (income - 35000)*0.40 End If Dim taxStr As String Rem ¨Ï¥Î¤G¦ì¤p¼Æ Rem ¨Ï¥Î³r¸¹°µ¬°¤d¤À¦ì¤À¹j²Å¸¹ taxStr = CStr (tax, 2, ",") formula = "±zÄÝ©ó " & message & _ " ¯Çµ|µ¥¯Å¡C " & _ "±zªº¹w¦ôµ|ÃB¬° " & taxStr & "¡C"
½Ðª`·N¡A¤W¨Ò¤¤¨Ï¥ÎÅܼƨÓ²¤ÆpºâªºÅÞ¿è¡C¦¹¥~¡Aª`·N¨ì¦b¬YÓ±ø¥ó²Å¦X®É¡A·|°õ¦æ¨âÓ³¯z¦¡¡G¤@Ó«ü¬£ tax ÅܼơA¥t¤@Ó«ü¬£ message ÅܼơC¦b²Å¦X¤@Ó±ø¥ó®É°õ¦æ¦hÓ³¯z¦¡±ø¥ó¬O«Ü¦³¥Îªº§@ªk¡C