Crystal Reports  

¨Ï¥Î Dim «Å§iÅÜ¼Æ (Basic »yªk)

¦b¤½¦¡¤¤¨Ï¥ÎÅܼƤ§«e¡A¥²¶·¥ý¶i¦æ«Å§i¡CÅܼƥi¥H«O¯d«ü©w«¬§Oªº¸ê®Æ­È¡C¤¹³\ªº¸ê®Æ«¬§O¥]¬A¤CºØÂ²³æ«¬§O (¼Æ­È¡B³f¹ô¡B¦r¦ê¡B¥¬ªL¡B¤é´Á¡B®É¶¡©M¤é´Á®É¶¡) ¤Î¤»ºØ½d³ò«¬§O (¼Æ­È½d³ò¡B³f¹ô½d³ò¡B¦r¦ê½d³ò¡B¤é´Á½d³ò¡B®É¶¡½d³ò¤Î¤é´Á®É¶¡½d³ò) ¥H¤Î¤§«e´£¨ì¥i¥H«O¯d°}¦Cªº¸ê®Æ«¬§O¡C©Ò¥HÅܼƤ@¦@¥i¥H¨Ï¥Î 26 ºØ¤£¦Pªº¸ê®Æ«¬§O¡C

·í±z«Å§iÅܼƮɡA¥²¶·¥ý¬°¨ä«ü©w¤@­Ó¦WºÙ¡CÅܼƪº¦WºÙ¤£¯à»P¥ô¦ó Basic »yªk¤¤¦³®Äªº¨ç¦¡¡B¹Bºâ¤l¦WºÙ©Î¨ä¥LÃöÁä¦r¬Û¦P¡C¨Ò¦p¡AÅܼƦWºÙ¤£¥i¥H¨ú¬° Sin¡BMod ©Î If¡A¦]¬° Sin ¬O¤º«Ø¨ç¦¡¡AMod ¬O¤º«Ø¹Bºâ¤l¡A¦Ó If ¬O¤º«ØÃöÁä¦r¡C¦b¤½¦¡½s¿è¾¹¤¤¿é¤J¤½¦¡®É¡A¤º«Øªº¨ç¦¡¡B¹Bºâ¤lªº¦WºÙ©M¨ä¥LÃöÁä¦r§¡·|¥H¤£¦PªºÃC¦â¥[¥H¿ô¥Ø´£¥Ü¡C¥i¸û©öÀˬd¥XÅܼƪº¦WºÙ¬O§_·|³y¦¨½Ä¬ð¡C

Åܼƫŧi§¹¤§«á¡A´N¥i¥H¦b¤½¦¡¤¤¨Ï¥Î¡C¨Ò¦p¡A±z¤]³\·Q­n¬°¥¦«ü¬£°_©l­È¡G

Dim x As Number '«Å§i x ¦¨¬° Number ÅܼÆ
x = 10 '±N¼Æ­È 10 «ü¬£µ¹ x

¨C­Ó³¯­z¦¡¥i«Å§i¤@­Ó¥H¤WªºÅܼơA¤¤¶¡¥H³r¸¹°Ï¹j¡G

Dim x As Number, y as String, z as DateTime Range
x = 10 : y = "hello"
z = #Jan 1, 1999# To #Jan 31, 1999#

«Å§iÅܼƦý¤£¥ß§Y«ü©w«¬§O

¤j­P¦Ó¨¥¡A¦b«Å§iÅܼƮɡA¨Ã¤£»Ý­n©ú½T«ü©w¨ä«¬§O¡C¦b³oºØ±¡ªp¤U¡AÅܼƪº«¬§O¬O¥Ñ¨ä²Ä¤@­Ó«ü¬£¨Ó¨M©w¡C³o»P Formula ¯S®íÅܼÆÃþ¦ü¡C¥¦»P Visual Basic ¤£¦P¡C¦b Visual Basic ¤¤¡A«Å§i®É¨S¦³«ü©w«¬§OªºÅܼƷ|¦Û°Ê«ü©w¬° Variant «¬§O¡CµM¦Ó¡A¦b¹ê»ÚÀ³¥Î®É¡A³oªí¥Ü±z¥i¥H¹³¨Ï¥Î Visual Basic ªº Variant ¤@¼Ë¦a¼g¤½¦¡¡C

Dim p 'p ªº«¬§O¥Ø«e¥¼©w
p = "¦A¨£" 'p ªº«¬§O²{¦b³]¬° String
Dim q 'q ªº«¬§O¥Ø«e¥¼©w
q = Array ("±z¦n", p) 'q ¬°¦r¦ê°}¦C
'¿ù»~- p ¬° String ÅܼơA¤£¯à±a¦³¼Æ¦r
p = 25
Dim r
'r ¬° Number ÅܼơA¥]§t¼Æ­È 5
r = (10 + 5) / 3
'a »P c ªº«¬§O¥Ø«e¥¼©w
Dim a, b As Boolean, c
b = False
'a ªº«¬§O¥Ø«e³]¬° Boolean
'¨ä­È¬° False
a = b
'c ªº«¬§O¥Ø«e³]¬° Number¡A¨ä­È¬° 17
c = 2 + 3 * 5

«Å§i»Pªì©l¤Æ½d³òÅܼƪº½d¨Ò

Dim gradeA, quarter
'gradeA ªº«¬§O³]¬°¼Æ¦r½d³ò
gradeA = 90 To 100
'quarter ªº«¬§O³]¬°¤é´Á½d³ò
quarter = CDate (1999, 10, 1) To CDate (1999, 12, 31)

½Ð°Ñ¾\

Åܼƽd³ò