Crystal Reports  

For/Next °j°é½d¨Ò (Basic »yªk)

¥H¤U¬O Crystal Reports ¦r¦ê³B²z¥\¯à§ó¸Ô²Óªº½d¨Ò¡CCaesar Cipher ¬O¤@­Ó²³æªº½s½X­ì«h¡A¶Ç²Î¤W»{¬°¬O Julius Caesar ©Òµo©úªº¡C¦b³o­Ó½s½X¤¤¡A³æ¦r¤¤ªº¨C­Ó¦r¥À³£·|¥H¦r¥Àªí¤¤¨ä«áªº²Ä¤­­Ó¦r¤¸¨Ó¨ú¥N¡C¨Ò¦p¡AJaws ·|Åܦ¨ Ofbx¡C½Ðª`·N w ¬O¥H b ¨Ó¨ú¥N¡A¦]¬°¦r¥Àªí¤¤ w ¤§«á¨S¦³¤­­Ó¦r¥À¡A©Ò¥H´N±qÀYºâ°_¡C

³o¸Ìªº¤½¦¡´N¬O±N Caesar Cipher À³¥Î¨ì Xtreme ¸ê®Æ®wªº {«È¤á.¤½¥q¦WºÙ} Äæ¦ì¤¤¡G

Rem Caesar Cipher
Dim inString '­n¥[±Kªº¿é¤J¦r¦ê
inString = {«È¤á.¤½¥q¦WºÙ}
Dim shift
shift = 5
formula = ""
Dim i
For i = 1 To Len(inString)
Dim inC, outC
inC = Mid (inString, i, 1)
Dim isChar, isUCaseChar
isChar = LCase(inC) In "a" To "z"
isUCaseChar = isChar And (UCase (inC) = inC)
inC = LCase(inC)
If isChar Then
Dim offset
offset = (Asc(inC) + shift - Asc("a")) Mod _
(Asc("z") - Asc("a") + 1)
outC = Chr(offset + Asc("a"))
If isUCaseChar Then outC = UCase(outC)
Else
outC = inC
End If
formula = formula & outC
Next i

¤W¨Ò¤¤¦³¤@­Ó¦h¦æªº If ³¯­z¦¡®MÅ|©ó For/Next °j°éªº³¯­z¦¡°Ï¶ô¤¤¡C³o­Ó If ³¯­z¦¡­t³d§ó´«³æ¤@¦r¤¸ªº²Ó¸`¡C¨Ò¦p¡A±N¦r¥Àµø¬°»P¼ÐÂI²Å¸¹©MªÅ¥Õ¤£¦P¡C¯S§O¬O¡A¼ÐÂI²Å¸¹©MªÅ¥Õ¨Ã¤£·|¶i¦æ½s½X¡C±±¨îµ²ºc¥i®MÅ|©ó¨ä¥Lªº±±¨îµ²ºc¤¤¡A¦Ó±±¨îµ²ºcªº³¯­z¦¡°Ï¶ô¤]¥i¯Ç¤J¦h­Ó³¯­z¦¡¡C

½Ð°Ñ¾\

µ²§ô For/Next °j°é