¦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¤]³\·Qn¬°¥¦«ü¬£°_©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#
¤jP¦Ó¨¥¡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)