£Ã£è£á£ð£ô£å£ò.£±£³ [ ¾ò·ïʬ´ô ]
¢£¾ò·ïʬ´ô¤Ã¤Æ¤Ê¤Ë¡©
¤¸¤ã¤ó¤±¤ó¥²¡¼¥à¤òºîÀ®¤¹¤ë¤¿¤á¤Ë¡¢¤â¤¦¤Ò¤È¤Ä·ç¤«¤»¤Ê¤¤Í×ÁǤ¬¤¢¤ê¤Þ¤¹¡£¤½¤ì¤¬¡Ø¾ò·ïʬ´ô¡Ù¤Ç¤¹¡£
¾ò·ïʬ´ô¤È¤Ï¡Ø¤â¤·¡¢¡û¡û¤À¤Ã¤¿¤é¤³¤¦¤¹¤ë¡£¡ß¡ß¤À¤Ã¤¿¤é¤³¤¦¤¹¤ë¡Ù¤È¤¤¤Ã¤¿¤Õ¤¦¤Ë¡¢¾ò·ï¤Ë¤è¤Ã¤Æ½èÍý¤ò¤ï¤±¤ë¤³¤È¤ò¤¤¤¤¤Þ¤¹¡£¤¸¤ã¤ó¤±¤ó¤Ï¼«Ê¬¤Î½Ð¤·¤¿Ìò¤È¡¢Áê¼ê¤Î½Ð¤·¤¿Ìò¤ÎÁȤ߹ç¤ï¤»¤Ë¤è¤Ã¤Æ¾¡¤ÁÉ餱¤¬·è¤Þ¤ê¤Þ¤¹¤Í¡£¤Ä¤Þ¤ê¾ò·ï¤Ë¤è¤Ã¤Æ¾¡¤Ã¤¿¤êÉ餱¤¿¤ê¤¹¤ë¤ï¤±¤Ç¤¹¤«¤é¡¢¤³¤ì¤ò¥×¥í¥°¥é¥ß¥ó¥°¤¹¤ë¤¿¤á¤Ë¤Ï¡¢¾ò·ïʬ´ô¤ò³Ø¤Ð¤Ê¤¯¤Æ¤Ï¤Ê¤ê¤Þ¤»¤ó¡£
¤¸¤ã¤ó¤±¤ó¤Ë¸Â¤é¤º¡¢¥²¡¼¥à¤ÎºîÀ®¤Ë¤ÏÀäÂФ˾ò·ïʬ´ô¤¬½Ð¤Æ¤¤Þ¤¹¡£
¥·¥å¡¼¥Æ¥£¥ó¥°¥²¡¼¥à¤Ê¤é¡¢¤â¤·Å¨¤ÎÃÆ¤¬¼«Ê¬¤ËÅö¤¿¤Ã¤¿¤é¡Ä¡Ä¤È¤«¤Ç¤¹¤Í¡£
¾ò·ïʬ´ô¤ò¤·¤Ã¤«¤ê³Ð¤¨¤Æ¤¤¤Ê¤¤¤È¡¢¥²¡¼¥à¤ÎºîÀ®¤Ï̵Íý¤Ç¤¹¡£¤·¤Ã¤«¤ê³Ð¤¨¤Þ¤·¤ç¤¦¡£
¢££É£æÊ¸
¾ò·ïʬ´ô¤ò¹Ô¤¦¤¿¤á¤Ë¤Ï¡¢¡Ø£É£æ¡Ù¤È¤¤¤¦¥¡¼¥ï¡¼¥É¤ò»È¤¤¤Þ¤¹¡£ÆÉ¤ßÊý¤Ï¡Ø¥¤¥Õ¡Ù¤Ç¤¹¡£±Ñ¸ì¤Ç£É£æ¤Ï¡¢¤â¤·¡Á¤Ç¤¹¤«¤é¡¢°ÕÌ£¤È¤·¤Æ¤Ï¤½¤Î¤Þ¤ó¤Þ¤Ç¤¹¡£
If¡§
¹½Ê¸
If ¾ò·ï Then
½èÍý¡Á
End If
ÀâÌÀ
¾ò·ï¤ËŬ¹ç¤¹¤ë¾ì¹ç¤Î¤ß¡¢½èÍý¤ÎÉôʬ¤ò¹Ô¤¦
ºÇ¸å¤Ïɬ¤ºEnd If¤ò¤Ä¤±¤Æ½ª¤ï¤ë
If¤Î¤¢¤È¤ËȾ³Ñ¥¹¥Ú¡¼¥¹¤ò¶õ¤±¤Æ¡¢¾ò·ï¤òµ½Ò¤·¤Þ¤¹¡£¤½¤Î¸å¤Ë¡¢¤Þ¤¿È¾³Ñ¥¹¥Ú¡¼¥¹¤ò¤¢¤±¤ÆThen¤ò¤Ä¤±¤Þ¤¹¡£¤³¤ì¤Ïʸˡ¾å¤ÎÀäÂФηè¤Þ¤ê¤Ç¤¹¤Î¤Ç³Ð¤¨¤Æ¤ª¤¤¤Æ¤¯¤À¤µ¤¤¡£
¤½¤·¤Æ¡¢¤½¤Î¾ò·ï¤Ë¤¢¤Ã¤Æ¤¤¤ë(Ŭ¹ç¤·¤Æ¤¤¤ë)¾ì¹ç¤À¤±¡¢¤½¤Î¸å¤Î½èÍý¤ò¹Ô¤¤¤Þ¤¹¡£¾ò·ï¤òËþ¤¿¤·¤Æ¤¤¤ë¤«¤É¤¦¤«¤Ë´Ø·¸¤Ê¤¯¡¢If¤Ç»Ï¤Þ¤Ã¤¿¾ò·ïʬ´ô¤Ïɬ¤ºEnd If¤ÇÊĤ¸¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£
¤½¤ì¤Ç¤ÏÎã¤òµó¤²¤Æ¤ß¤Þ¤·¤ç¤¦¡£
¤³¤Î¥³¡¼¥É¤ò¸«¤Æ¡¢¤É¤Î¤è¤¦¤Êµóư¤ò¤¹¤ë¤«¤ï¤«¤ë¤Ç¤·¤ç¤¦¤«¡©
¾å¤Î¥³¡¼¥É¤Ç¤¤¤¦¤È¡ØI = 1¡Ù¤ÎÉôʬ¤¬¡Ø¾ò·ï¡Ù¤ÎÉôʬ¤Ç¤¹¡£¤Ä¤Þ¤ê¡¢¾ò·ï¤È¤·¤Æ¡¢ÊÑ¿ô £É ¤¬£±¤Î¾ì¹ç¤À¤±¡¢¤È¤¤¤¦¤è¤¦¤ËÄêµÁ¤·¤Æ¤¤¤Þ¤¹¡£
Rnd¤Ë¤è¤Ã¤ÆÀ¸À®¤µ¤ì¤¿Íð¿ô¤¬¡¢Int¤Ë¤è¤Ã¤Æ¾®¿ôÅÀ°Ê²¼¤òÀÚ¤ê¼Î¤Æ¤é¤ì¤ë¤Î¤ÏÁ°²ó²òÀ⤷¤Þ¤·¤¿¤Í¡£¤½¤·¤ÆRnd¤Ë³Ý¤±»»¤·¡¢£±¤ò¤·¤Æ¤¤¤ë¤³¤È¤Ë¤è¤Ã¤Æ¡¢ÊÑ¿ô £É ¤Ë¤Ï£±¤«£²¤«£³¤Î¤É¤ì¤«¤¬Æþ¤Ã¤Æ¤¤¤Þ¤¹¡£
£³¼ïÎà¤Î¤É¤ì¤«¤¬Æþ¤Ã¤¿ÊÑ¿ô £É ¡£¤³¤ì¤ò¾ò·ï¤Ë¤·¤Æ¡¢¤â¤·¡¢ÊÑ¿ô £É ¤¬£±¤À¤Ã¤¿¤È¤¤À¤±¡¢¡Ø1¤Ç¤¹¡Ù¤È¤¤¤¦¥á¥Ã¥»¡¼¥¸¤òɽ¼¨¤µ¤»¤Þ¤¹¡£¾å¤Î¥³¡¼¥É¤Ï¤½¤¦¤¤¤¦°ÕÌ£¤Ë¤Ê¤Ã¤Æ¤¤¤ë¤Î¤Ç¤¹¡£
¤È¤¤¤¦¤³¤È¤Ï¡¢¤â¤·ÊÑ¿ô £É ¤ËÆþ¤Ã¤Æ¤¤¤ë¿ôÃͤ¬¡¢£±°Ê³°¤À¤Ã¤¿¤È¤¤Ï¤É¤¦¤Ê¤ë¤Î¤Ç¤·¤ç¤¦¤«¡©¡¡Åú¤¨¤Ï²¿¤âµ¯¤³¤é¤Ê¤¤¡¢¤Ç¤¹¡£¼Â¹Ô¤·¤Æ¤â¡¢°ì½Ö¤Ë¤·¤Æ½èÍý¤¬´°Î»¤·¡¢²¿»ö¤â̵¤«¤Ã¤¿¤«¤Î¤è¤¦¤Ë¥·¡¼¥ó¡Ä¡Ä¤Ç¤¹¡£¤Ä¤Þ¤ê¡¢ÊÑ¿ô¤ËÆþ¤Ã¤Æ¤¤¤ë¿ôÃͤ¬£±¤À¤Ã¤¿¤È¤¤À¤±¡¢¥á¥Ã¥»¡¼¥¸¤òɽ¼¨¤¹¤ë¥³¡¼¥É¤ÎÉôʬ¤¬¹Ô¤ï¤ì¤Æ¤¤¤ë¤³¤È¤Ë¤Ê¤ê¤Þ¤¹¡£
¤³¤ì¤¬Ifʸ¡¢¤Ä¤Þ¤ê¾ò·ïʬ´ô¤Ê¤Î¤Ç¤¹¡£
¢£Ê£¿ô¤Î¾ò·ï¤ò»ØÄꤹ¤ë
¤µ¤Æ¡¢¾å¤Ç²òÀ⤷¤¿Ifʸ¤Î»ÅÁȤߤò»È¤¨¤Ð¡¢ÍÍ¡¹¤Ê¾ò·ï¤Ë±þ¤¸¤Æ°Û¤Ê¤ë½èÍý¤ò¹Ô¤¦¤³¤È¤¬¤Ç¤¤ë¤è¤¦¤Ë¤Ê¤ê¤Þ¤¹¡£
¤¿¤À¤·¡¢º£¤Î¤Þ¤Þ¤À¤È£±¼ïÎà¤Î¾ò·ï¤Ë¤·¤«Âбþ¤·¤Æ¤¤¤Þ¤»¤ó¡£Àè¤Û¤É¤ÎÎã¤Ç¸À¤¨¤Ð¡¢ÊÑ¿ô £É ¤¬£±¤À¤Ã¤¿¾ì¹ç¤À¤±¤Ï½èÍý¤¬¹Ô¤ï¤ì¤Þ¤¹¤¬¡¢¤½¤¦¤Ç¤Ï¤Ê¤«¤Ã¤¿¾ì¹ç¤Ë¤Ï¡¢²¿¤âµ¯¤³¤ê¤Þ¤»¤ó¡£¾ò·ï¤Ë¹ç¤ï¤Ê¤«¤Ã¤¿¾ì¹ç¤Ë¤â¡¢¤½¤ì¤Ê¤ê¤Î½èÍý¤ò¹Ô¤¤¤¿¤¤¾ì¹ç¤Ï·ë¹½¤¢¤ë¤â¤Î¤Ç¤¹¡£
£Ò£Ð£Ç¤Ç¤¤¤¨¤Ð¡¢¤â¤·Å¨¤¬»à¤ó¤À¾ì¹ç¤Ë¤ÏÀïÆ®¤ò½ªÎ»¤·¤Þ¤¹¤Í¡£¤·¤«¤·»à¤Ê¤Ê¤«¤Ã¤¿¾ì¹ç¤Ë²¿¤âµ¯¤³¤é¤Ê¤«¤Ã¤¿¤é¡¢¥²¡¼¥à¤¬À®¤êΩ¤Á¤Þ¤»¤ó¡£¤³¤ì¤Ï¾ò·ï¤ËŬ¹ç¤·¤Ê¤«¤Ã¤¿¾ì¹ç¤Ë¤â¡¢¤½¤ì¤Ï¤½¤ì¤Ç²¿¤«¤·¤é¤Î½èÍý¤ò¹Ô¤¦É¬Íפ¬¤¢¤ë¤È¤¤¤¦¥±¡¼¥¹¤Ç¤¹¤Í¡£
¾ò·ï¤ËŬ¹ç¤·¤Ê¤«¤Ã¤¿¾ì¹ç¤Î½èÍý¤ò¹Ô¤¦¤¿¤á¤Ë¤Ï¡ØElse¡Ù¤ò¤Ä¤«¤Ã¤ÆIfʸ¤ò³ÈÄ¥¤·¤Þ¤¹¡£¤³¤ì¤âÎã¤òµó¤²¤Æ¸«¤Æ¤ß¤ë¤³¤È¤Ë¤·¤Þ¤·¤ç¤¦¡£
Else¤òµ½Ò¤·¤¿¸å¤Î¥³¡¼¥É¤Ï¡¢¾ò·ï¤ËŬ¹ç¤·¤Ê¤«¤Ã¤¿¾ì¹ç¤Î½èÍý¤Ç¤¹¡£
¤Ä¤Þ¤ê¡¢¤³¤Î¥³¡¼¥É¤ò¼Â¹Ô¤¹¤ë¤È¡¢Àè¤Û¤É¤Î¤è¤¦¤Ë¾ì¹ç¤Ë¤è¤Ã¤Æ¤Ï²¿¤âµ¯¤³¤é¤Ê¤¤¤È¤¤¤¦¤³¤È¤ÏÀäÂФˤ¢¤ê¤Þ¤»¤ó¡£É¬¤º¡Ø1¤Ç¤¹¡Ù¤«¡¢¡Ø1°Ê³°¤Î²¿¤«¤Ç¤¹¡Ù¤Î¤É¤Á¤é¤«¤Î¥á¥Ã¥»¡¼¥¸¤¬É½¼¨¤µ¤ì¤Þ¤¹¡£
ÊÑ¿ô £É ¤¬£±¤À¤Ã¤¿¾ì¹ç¤Ï¡Ø1¤Ç¤¹¡Ù¤Èɽ¼¨¡£ÊÑ¿ô £É ¤¬£²¤«£³¤À¤Ã¤¿¾ì¹ç¤Ë¤Ï¡Ø1°Ê³°¤Î²¿¤«¤Ç¤¹¡Ù¤Èɽ¼¨¤·¤Þ¤¹¡£
¢£¤µ¤é¤ËºÙ¤«¤¯¾ò·ï¤òʬ´ô¤¹¤ë
¤µ¤¡¡¢If¤Ë¤Ä¤¤¤Æ¤Ï¤À¤ó¤À¤ó¤ï¤«¤Ã¤Æ¤¤Þ¤·¤¿¤«¡©
¼Â¤Ï¡¢¤µ¤é¤ËºÙ¤«¤¯¾ò·ï¤ò»ØÄꤹ¤ë¤³¤È¤â¤Ç¤¤Þ¤¹¡£º£²ó¤ÎÎã¤Ç¸À¤¨¤Ð¡¢ÊÑ¿ô £É ¤¬£²¤«£³¤À¤Ã¤¿¾ì¹ç¤Ë¤Ï½èÍý¤¬Æ±¤¸¤â¤Î¤Ë¤Ê¤Ã¤Æ¤·¤Þ¤Ã¤Æ¤¤¤Þ¤¹¤Í¡£¤³¤ì¤ò¤µ¤é¤Ëʬ´ô¤µ¤»¤Æ¥á¥Ã¥»¡¼¥¸¤òɽ¼¨¤µ¤»¤ë¤³¤È¤¬¤Ç¤¤ë¤Î¤Ç¤¹¡£
¤½¤ì¤¬²¼¤Î¥³¡¼¥É¤Ç¤¹¡£
¤³¤³¤Þ¤Ç½ç¤ò¤ª¤Ã¤Æ¥¥Á¥ó¤ÈÆÉ¤ó¤Ç¤¤¿Êý¤Ë¤Ï´Êñ¤Ç¤·¤ç¤¦¡£
Else¤Ë¤Ï¡¢¤¸¤Ä¤ÏIf¤ò¹çÂΤµ¤»¤ë¤³¤È¤¬¤Ç¤¤ë¤Î¤Ç¤¹¡£¤³¤ì¤¬¡ØElseIf¡Ù¤Ç¤¹¡£ElseIf¤ò»È¤¦¾ì¹ç¤Ï¡¢Ä̾ï¤ÎIfʸ¤ÈƱ¤¸¤è¤¦¤Ë¡¢¾ò·ï¤òµ½Ò¤·¤ÆThen¤ò¤Ä¤±¤Þ¤¹¡£¤½¤·¤Æ¤½¤Î¸å¤ÎÉôʬ¤Ë½èÍý¤òµ½Ò¤·¤Þ¤¹¡£
¾å¤Î¥³¡¼¥É¤ò¡¢ÆüËܸì¤ËËÝÌõ¤¹¤ë¤È¡Ø¤â¤·ÊÑ¿ô £É ¤¬£±¤À¤Ã¤¿¤é£±¤Ç¤¹¤Èɽ¼¨¤·¡¢¤½¤ì°Ê³°¤Î¾ì¹ç¤Î¤¦¤Á¡¢¤â¤·£²¤À¤Ã¤¿¤é£²¤Ç¤¹¤Èɽ¼¨¤¹¤ë¡£¤½¤Î¤É¤Á¤é¤Ç¤â¤Ê¤¤¾ì¹ç¤Ï£³¤Ç¤¹¤Èɽ¼¨¤¹¤ë¡Ù¤È¤¤¤¦¤Õ¤¦¤Ë¤Ê¤ê¤Þ¤¹¡£
¤³¤Î¾ì¹ç¤Ï¡¢ÊÑ¿ô £É ¤ËÆþ¤Ã¤Æ¤¤¤ë¿ôÃͤ¬£±¤«£²¤«£³¤Î¤É¤ì¤«¤È¤¤¤¦¤³¤È¤¬³Î¼Â¤Ç¤¹¤«¤é¡¢ºÇ¸å¤ÎÉôʬ¤ÏElse¤À¤±¤òµ½Ò¤¹¤ì¤Ð¤¤¤¤¤Ç¤¹¤Í¡£¤â¤·¤âÊÑ¿ô £É ¤ÎÃæ¿È¤Ë£±¡Á£³°Ê³°¤Î¿ôÃͤ¬Æþ¤Ã¤Æ¤¤¤ë²ÄǽÀ¤¬¤¢¤ë¾ì¹ç¤Ï¡¢£±¡Á£³°Ê³°¤ÎÁ´¤Æ¤Î¿ôÃͤǡØ3¤Ç¤¹¡Ù¤Èɽ¼¨¤µ¤ì¤Á¤ã¤¤¤Þ¤¹¤«¤é¤Þ¤º¤¤¤Ç¤¹¤±¤É¤Í¡£
ElseIf¤Ï¡¢Æ±¤¸Ifʸ¤Î¤Ê¤«¤Ç²¿Å٤Ǥâ»È¤¨¤Þ¤¹¡£¤¤¤¯¤é¤Ç¤â¾ò·ïʬ´ô¤ÏÁý¤ä¤¹¤³¤È¤¬¤Ç¤¤ë¤Î¤Ç¤¹¡£¤Ç¤¹¤«¤é¡¢Î㤨¤Ð¼¡¤Î¤è¤¦¤Ê¥³¡¼¥É¤â¥¥Á¥ó¤Èư¤¤Þ¤¹¡£
¢£¤Þ¤È¤á
¾ò·ïʬ´ô¤ò¤¦¤Þ¤¯»È¤¤¤³¤Ê¤¹¤³¤È¤Ë¤è¤Ã¤Æ¡¢ÍÍ¡¹¤Ê¾õ¶·¤Ë±þ¤¸¤Æ¡¢°Û¤Ê¤ë½èÍý¤ò¹Ô¤¦¤³¤È¤¬¤Ç¤¤Þ¤¹¡£¤¸¤ã¤ó¤±¤ó¤Ï¼«Ê¬¤ÈÁê¼ê¤ÎÌò¼¡Âè¤Ç¡¢·ë²Ì¤¬Ê¬¤«¤ì¤ë¥²¡¼¥à¤Ç¤¹¡£¾å¼ê¤Ë¾ò·ïʬ´ô¤ò»È¤¦¤³¤È¤¬¡¢¤¸¤ã¤ó¤±¤ó¥²¡¼¥à¤òºî¤ë¤¦¤¨¤Ç·ç¤«¤»¤Ê¤¤Í×ÁǤʤΤǤ¹¡£
º£²ó¡¢Ifʸ¤ò¥Þ¥¹¥¿¡¼¤Ç¤¤¿¤³¤È¤Ç¡¢¤¸¤ã¤ó¤±¤ó¥²¡¼¥à¤òºîÀ®¤¹¤ë¤¿¤á¤Î¹Í¤¨Êý¤ò¡¢¤Û¤ÜÍý²ò¤Ç¤¤¿¤È¸À¤Ã¤Æ¤¤¤¤¤È»×¤¤¤Þ¤¹¡£¼¡²ó¤Ï¡¢¤¸¤ã¤ó¤±¤ó¥²¡¼¥à¤Î¥²¡¼¥à²èÌ̤òÀ߷פ·¤Æ¤ß¤ë¤³¤È¤Ë¤·¤Þ¤¹¡£
¢£³Ê¸À
¥²¡¼¥à¤Ë¤Ï¾ò·ïʬ´ô¤Ï·ç¤«¤»¤Ê¤¤
¾ò·ïʬ´ô¤ò¹Ô¤¦¤¿¤á¤Ë¤Ï£É£æÊ¸¤ò»È¤¦
£Å£ì£ó£å£É£æ¤ò»È¤¦¤³¤È¤Ç¤µ¤é¤ËºÙ¤«¤¯Ê¬´ô²Äǽ
¥²¡¼¥à¤Ë¸Â¤é¤º¡¢¾ò·ïʬ´ô¤ÏͽÅÍפʳµÇ°¤Î¤Ò¤È¤Ä¡£
¤·¤Ã¤«¤ê³Ð¤¨¤Æ¤ª¤¤Þ¤·¤ç¤¦¡£
¤¸¤ã¤ó¤±¤ó¥²¡¼¥à¤òºîÀ®¤¹¤ë¤¿¤á¤Ë¡¢¤â¤¦¤Ò¤È¤Ä·ç¤«¤»¤Ê¤¤Í×ÁǤ¬¤¢¤ê¤Þ¤¹¡£¤½¤ì¤¬¡Ø¾ò·ïʬ´ô¡Ù¤Ç¤¹¡£
¾ò·ïʬ´ô¤È¤Ï¡Ø¤â¤·¡¢¡û¡û¤À¤Ã¤¿¤é¤³¤¦¤¹¤ë¡£¡ß¡ß¤À¤Ã¤¿¤é¤³¤¦¤¹¤ë¡Ù¤È¤¤¤Ã¤¿¤Õ¤¦¤Ë¡¢¾ò·ï¤Ë¤è¤Ã¤Æ½èÍý¤ò¤ï¤±¤ë¤³¤È¤ò¤¤¤¤¤Þ¤¹¡£¤¸¤ã¤ó¤±¤ó¤Ï¼«Ê¬¤Î½Ð¤·¤¿Ìò¤È¡¢Áê¼ê¤Î½Ð¤·¤¿Ìò¤ÎÁȤ߹ç¤ï¤»¤Ë¤è¤Ã¤Æ¾¡¤ÁÉ餱¤¬·è¤Þ¤ê¤Þ¤¹¤Í¡£¤Ä¤Þ¤ê¾ò·ï¤Ë¤è¤Ã¤Æ¾¡¤Ã¤¿¤êÉ餱¤¿¤ê¤¹¤ë¤ï¤±¤Ç¤¹¤«¤é¡¢¤³¤ì¤ò¥×¥í¥°¥é¥ß¥ó¥°¤¹¤ë¤¿¤á¤Ë¤Ï¡¢¾ò·ïʬ´ô¤ò³Ø¤Ð¤Ê¤¯¤Æ¤Ï¤Ê¤ê¤Þ¤»¤ó¡£
¤¸¤ã¤ó¤±¤ó¤Ë¸Â¤é¤º¡¢¥²¡¼¥à¤ÎºîÀ®¤Ë¤ÏÀäÂФ˾ò·ïʬ´ô¤¬½Ð¤Æ¤¤Þ¤¹¡£
¥·¥å¡¼¥Æ¥£¥ó¥°¥²¡¼¥à¤Ê¤é¡¢¤â¤·Å¨¤ÎÃÆ¤¬¼«Ê¬¤ËÅö¤¿¤Ã¤¿¤é¡Ä¡Ä¤È¤«¤Ç¤¹¤Í¡£
¾ò·ïʬ´ô¤ò¤·¤Ã¤«¤ê³Ð¤¨¤Æ¤¤¤Ê¤¤¤È¡¢¥²¡¼¥à¤ÎºîÀ®¤Ï̵Íý¤Ç¤¹¡£¤·¤Ã¤«¤ê³Ð¤¨¤Þ¤·¤ç¤¦¡£
¢££É£æÊ¸
¾ò·ïʬ´ô¤ò¹Ô¤¦¤¿¤á¤Ë¤Ï¡¢¡Ø£É£æ¡Ù¤È¤¤¤¦¥¡¼¥ï¡¼¥É¤ò»È¤¤¤Þ¤¹¡£ÆÉ¤ßÊý¤Ï¡Ø¥¤¥Õ¡Ù¤Ç¤¹¡£±Ñ¸ì¤Ç£É£æ¤Ï¡¢¤â¤·¡Á¤Ç¤¹¤«¤é¡¢°ÕÌ£¤È¤·¤Æ¤Ï¤½¤Î¤Þ¤ó¤Þ¤Ç¤¹¡£
If¡§
¹½Ê¸
If ¾ò·ï Then
½èÍý¡Á
End If
ÀâÌÀ
¾ò·ï¤ËŬ¹ç¤¹¤ë¾ì¹ç¤Î¤ß¡¢½èÍý¤ÎÉôʬ¤ò¹Ô¤¦
ºÇ¸å¤Ïɬ¤ºEnd If¤ò¤Ä¤±¤Æ½ª¤ï¤ë
If¤Î¤¢¤È¤ËȾ³Ñ¥¹¥Ú¡¼¥¹¤ò¶õ¤±¤Æ¡¢¾ò·ï¤òµ½Ò¤·¤Þ¤¹¡£¤½¤Î¸å¤Ë¡¢¤Þ¤¿È¾³Ñ¥¹¥Ú¡¼¥¹¤ò¤¢¤±¤ÆThen¤ò¤Ä¤±¤Þ¤¹¡£¤³¤ì¤Ïʸˡ¾å¤ÎÀäÂФηè¤Þ¤ê¤Ç¤¹¤Î¤Ç³Ð¤¨¤Æ¤ª¤¤¤Æ¤¯¤À¤µ¤¤¡£
¤½¤·¤Æ¡¢¤½¤Î¾ò·ï¤Ë¤¢¤Ã¤Æ¤¤¤ë(Ŭ¹ç¤·¤Æ¤¤¤ë)¾ì¹ç¤À¤±¡¢¤½¤Î¸å¤Î½èÍý¤ò¹Ô¤¤¤Þ¤¹¡£¾ò·ï¤òËþ¤¿¤·¤Æ¤¤¤ë¤«¤É¤¦¤«¤Ë´Ø·¸¤Ê¤¯¡¢If¤Ç»Ï¤Þ¤Ã¤¿¾ò·ïʬ´ô¤Ïɬ¤ºEnd If¤ÇÊĤ¸¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£
¤½¤ì¤Ç¤ÏÎã¤òµó¤²¤Æ¤ß¤Þ¤·¤ç¤¦¡£
Sub IfTest()
Dim I As Integer
I = Int(Rnd * 3) + 1
If I = 1 Then
MsgBox "1¤Ç¤¹"
End If
End Sub
Dim I As Integer
I = Int(Rnd * 3) + 1
If I = 1 Then
MsgBox "1¤Ç¤¹"
End If
End Sub
¤³¤Î¥³¡¼¥É¤ò¸«¤Æ¡¢¤É¤Î¤è¤¦¤Êµóư¤ò¤¹¤ë¤«¤ï¤«¤ë¤Ç¤·¤ç¤¦¤«¡©
¾å¤Î¥³¡¼¥É¤Ç¤¤¤¦¤È¡ØI = 1¡Ù¤ÎÉôʬ¤¬¡Ø¾ò·ï¡Ù¤ÎÉôʬ¤Ç¤¹¡£¤Ä¤Þ¤ê¡¢¾ò·ï¤È¤·¤Æ¡¢ÊÑ¿ô £É ¤¬£±¤Î¾ì¹ç¤À¤±¡¢¤È¤¤¤¦¤è¤¦¤ËÄêµÁ¤·¤Æ¤¤¤Þ¤¹¡£
Rnd¤Ë¤è¤Ã¤ÆÀ¸À®¤µ¤ì¤¿Íð¿ô¤¬¡¢Int¤Ë¤è¤Ã¤Æ¾®¿ôÅÀ°Ê²¼¤òÀÚ¤ê¼Î¤Æ¤é¤ì¤ë¤Î¤ÏÁ°²ó²òÀ⤷¤Þ¤·¤¿¤Í¡£¤½¤·¤ÆRnd¤Ë³Ý¤±»»¤·¡¢£±¤ò¤·¤Æ¤¤¤ë¤³¤È¤Ë¤è¤Ã¤Æ¡¢ÊÑ¿ô £É ¤Ë¤Ï£±¤«£²¤«£³¤Î¤É¤ì¤«¤¬Æþ¤Ã¤Æ¤¤¤Þ¤¹¡£
£³¼ïÎà¤Î¤É¤ì¤«¤¬Æþ¤Ã¤¿ÊÑ¿ô £É ¡£¤³¤ì¤ò¾ò·ï¤Ë¤·¤Æ¡¢¤â¤·¡¢ÊÑ¿ô £É ¤¬£±¤À¤Ã¤¿¤È¤¤À¤±¡¢¡Ø1¤Ç¤¹¡Ù¤È¤¤¤¦¥á¥Ã¥»¡¼¥¸¤òɽ¼¨¤µ¤»¤Þ¤¹¡£¾å¤Î¥³¡¼¥É¤Ï¤½¤¦¤¤¤¦°ÕÌ£¤Ë¤Ê¤Ã¤Æ¤¤¤ë¤Î¤Ç¤¹¡£
¤È¤¤¤¦¤³¤È¤Ï¡¢¤â¤·ÊÑ¿ô £É ¤ËÆþ¤Ã¤Æ¤¤¤ë¿ôÃͤ¬¡¢£±°Ê³°¤À¤Ã¤¿¤È¤¤Ï¤É¤¦¤Ê¤ë¤Î¤Ç¤·¤ç¤¦¤«¡©¡¡Åú¤¨¤Ï²¿¤âµ¯¤³¤é¤Ê¤¤¡¢¤Ç¤¹¡£¼Â¹Ô¤·¤Æ¤â¡¢°ì½Ö¤Ë¤·¤Æ½èÍý¤¬´°Î»¤·¡¢²¿»ö¤â̵¤«¤Ã¤¿¤«¤Î¤è¤¦¤Ë¥·¡¼¥ó¡Ä¡Ä¤Ç¤¹¡£¤Ä¤Þ¤ê¡¢ÊÑ¿ô¤ËÆþ¤Ã¤Æ¤¤¤ë¿ôÃͤ¬£±¤À¤Ã¤¿¤È¤¤À¤±¡¢¥á¥Ã¥»¡¼¥¸¤òɽ¼¨¤¹¤ë¥³¡¼¥É¤ÎÉôʬ¤¬¹Ô¤ï¤ì¤Æ¤¤¤ë¤³¤È¤Ë¤Ê¤ê¤Þ¤¹¡£
¤³¤ì¤¬Ifʸ¡¢¤Ä¤Þ¤ê¾ò·ïʬ´ô¤Ê¤Î¤Ç¤¹¡£
¢£Ê£¿ô¤Î¾ò·ï¤ò»ØÄꤹ¤ë
¤µ¤Æ¡¢¾å¤Ç²òÀ⤷¤¿Ifʸ¤Î»ÅÁȤߤò»È¤¨¤Ð¡¢ÍÍ¡¹¤Ê¾ò·ï¤Ë±þ¤¸¤Æ°Û¤Ê¤ë½èÍý¤ò¹Ô¤¦¤³¤È¤¬¤Ç¤¤ë¤è¤¦¤Ë¤Ê¤ê¤Þ¤¹¡£
¤¿¤À¤·¡¢º£¤Î¤Þ¤Þ¤À¤È£±¼ïÎà¤Î¾ò·ï¤Ë¤·¤«Âбþ¤·¤Æ¤¤¤Þ¤»¤ó¡£Àè¤Û¤É¤ÎÎã¤Ç¸À¤¨¤Ð¡¢ÊÑ¿ô £É ¤¬£±¤À¤Ã¤¿¾ì¹ç¤À¤±¤Ï½èÍý¤¬¹Ô¤ï¤ì¤Þ¤¹¤¬¡¢¤½¤¦¤Ç¤Ï¤Ê¤«¤Ã¤¿¾ì¹ç¤Ë¤Ï¡¢²¿¤âµ¯¤³¤ê¤Þ¤»¤ó¡£¾ò·ï¤Ë¹ç¤ï¤Ê¤«¤Ã¤¿¾ì¹ç¤Ë¤â¡¢¤½¤ì¤Ê¤ê¤Î½èÍý¤ò¹Ô¤¤¤¿¤¤¾ì¹ç¤Ï·ë¹½¤¢¤ë¤â¤Î¤Ç¤¹¡£
£Ò£Ð£Ç¤Ç¤¤¤¨¤Ð¡¢¤â¤·Å¨¤¬»à¤ó¤À¾ì¹ç¤Ë¤ÏÀïÆ®¤ò½ªÎ»¤·¤Þ¤¹¤Í¡£¤·¤«¤·»à¤Ê¤Ê¤«¤Ã¤¿¾ì¹ç¤Ë²¿¤âµ¯¤³¤é¤Ê¤«¤Ã¤¿¤é¡¢¥²¡¼¥à¤¬À®¤êΩ¤Á¤Þ¤»¤ó¡£¤³¤ì¤Ï¾ò·ï¤ËŬ¹ç¤·¤Ê¤«¤Ã¤¿¾ì¹ç¤Ë¤â¡¢¤½¤ì¤Ï¤½¤ì¤Ç²¿¤«¤·¤é¤Î½èÍý¤ò¹Ô¤¦É¬Íפ¬¤¢¤ë¤È¤¤¤¦¥±¡¼¥¹¤Ç¤¹¤Í¡£
¾ò·ï¤ËŬ¹ç¤·¤Ê¤«¤Ã¤¿¾ì¹ç¤Î½èÍý¤ò¹Ô¤¦¤¿¤á¤Ë¤Ï¡ØElse¡Ù¤ò¤Ä¤«¤Ã¤ÆIfʸ¤ò³ÈÄ¥¤·¤Þ¤¹¡£¤³¤ì¤âÎã¤òµó¤²¤Æ¸«¤Æ¤ß¤ë¤³¤È¤Ë¤·¤Þ¤·¤ç¤¦¡£
Sub IfTest()
Dim I As Integer
I = Int(Rnd * 3) + 1
If I = 1 Then
MsgBox "1¤Ç¤¹"
Else
MsgBox "1°Ê³°¤Î²¿¤«¤Ç¤¹"
End If
End Sub
Dim I As Integer
I = Int(Rnd * 3) + 1
If I = 1 Then
MsgBox "1¤Ç¤¹"
Else
MsgBox "1°Ê³°¤Î²¿¤«¤Ç¤¹"
End If
End Sub
Else¤òµ½Ò¤·¤¿¸å¤Î¥³¡¼¥É¤Ï¡¢¾ò·ï¤ËŬ¹ç¤·¤Ê¤«¤Ã¤¿¾ì¹ç¤Î½èÍý¤Ç¤¹¡£
¤Ä¤Þ¤ê¡¢¤³¤Î¥³¡¼¥É¤ò¼Â¹Ô¤¹¤ë¤È¡¢Àè¤Û¤É¤Î¤è¤¦¤Ë¾ì¹ç¤Ë¤è¤Ã¤Æ¤Ï²¿¤âµ¯¤³¤é¤Ê¤¤¤È¤¤¤¦¤³¤È¤ÏÀäÂФˤ¢¤ê¤Þ¤»¤ó¡£É¬¤º¡Ø1¤Ç¤¹¡Ù¤«¡¢¡Ø1°Ê³°¤Î²¿¤«¤Ç¤¹¡Ù¤Î¤É¤Á¤é¤«¤Î¥á¥Ã¥»¡¼¥¸¤¬É½¼¨¤µ¤ì¤Þ¤¹¡£
ÊÑ¿ô £É ¤¬£±¤À¤Ã¤¿¾ì¹ç¤Ï¡Ø1¤Ç¤¹¡Ù¤Èɽ¼¨¡£ÊÑ¿ô £É ¤¬£²¤«£³¤À¤Ã¤¿¾ì¹ç¤Ë¤Ï¡Ø1°Ê³°¤Î²¿¤«¤Ç¤¹¡Ù¤Èɽ¼¨¤·¤Þ¤¹¡£
¢£¤µ¤é¤ËºÙ¤«¤¯¾ò·ï¤òʬ´ô¤¹¤ë
¤µ¤¡¡¢If¤Ë¤Ä¤¤¤Æ¤Ï¤À¤ó¤À¤ó¤ï¤«¤Ã¤Æ¤¤Þ¤·¤¿¤«¡©
¼Â¤Ï¡¢¤µ¤é¤ËºÙ¤«¤¯¾ò·ï¤ò»ØÄꤹ¤ë¤³¤È¤â¤Ç¤¤Þ¤¹¡£º£²ó¤ÎÎã¤Ç¸À¤¨¤Ð¡¢ÊÑ¿ô £É ¤¬£²¤«£³¤À¤Ã¤¿¾ì¹ç¤Ë¤Ï½èÍý¤¬Æ±¤¸¤â¤Î¤Ë¤Ê¤Ã¤Æ¤·¤Þ¤Ã¤Æ¤¤¤Þ¤¹¤Í¡£¤³¤ì¤ò¤µ¤é¤Ëʬ´ô¤µ¤»¤Æ¥á¥Ã¥»¡¼¥¸¤òɽ¼¨¤µ¤»¤ë¤³¤È¤¬¤Ç¤¤ë¤Î¤Ç¤¹¡£
¤½¤ì¤¬²¼¤Î¥³¡¼¥É¤Ç¤¹¡£
Sub IfTest()
Dim I As Integer
I = Int(Rnd * 3) + 1
If I = 1 Then
MsgBox "1¤Ç¤¹"
ElseIf I = 2 Then
MsgBox "2¤Ç¤¹"
Else
MsgBox "3¤Ç¤¹"
End If
End Sub
Dim I As Integer
I = Int(Rnd * 3) + 1
If I = 1 Then
MsgBox "1¤Ç¤¹"
ElseIf I = 2 Then
MsgBox "2¤Ç¤¹"
Else
MsgBox "3¤Ç¤¹"
End If
End Sub
¤³¤³¤Þ¤Ç½ç¤ò¤ª¤Ã¤Æ¥¥Á¥ó¤ÈÆÉ¤ó¤Ç¤¤¿Êý¤Ë¤Ï´Êñ¤Ç¤·¤ç¤¦¡£
Else¤Ë¤Ï¡¢¤¸¤Ä¤ÏIf¤ò¹çÂΤµ¤»¤ë¤³¤È¤¬¤Ç¤¤ë¤Î¤Ç¤¹¡£¤³¤ì¤¬¡ØElseIf¡Ù¤Ç¤¹¡£ElseIf¤ò»È¤¦¾ì¹ç¤Ï¡¢Ä̾ï¤ÎIfʸ¤ÈƱ¤¸¤è¤¦¤Ë¡¢¾ò·ï¤òµ½Ò¤·¤ÆThen¤ò¤Ä¤±¤Þ¤¹¡£¤½¤·¤Æ¤½¤Î¸å¤ÎÉôʬ¤Ë½èÍý¤òµ½Ò¤·¤Þ¤¹¡£
¾å¤Î¥³¡¼¥É¤ò¡¢ÆüËܸì¤ËËÝÌõ¤¹¤ë¤È¡Ø¤â¤·ÊÑ¿ô £É ¤¬£±¤À¤Ã¤¿¤é£±¤Ç¤¹¤Èɽ¼¨¤·¡¢¤½¤ì°Ê³°¤Î¾ì¹ç¤Î¤¦¤Á¡¢¤â¤·£²¤À¤Ã¤¿¤é£²¤Ç¤¹¤Èɽ¼¨¤¹¤ë¡£¤½¤Î¤É¤Á¤é¤Ç¤â¤Ê¤¤¾ì¹ç¤Ï£³¤Ç¤¹¤Èɽ¼¨¤¹¤ë¡Ù¤È¤¤¤¦¤Õ¤¦¤Ë¤Ê¤ê¤Þ¤¹¡£
¤³¤Î¾ì¹ç¤Ï¡¢ÊÑ¿ô £É ¤ËÆþ¤Ã¤Æ¤¤¤ë¿ôÃͤ¬£±¤«£²¤«£³¤Î¤É¤ì¤«¤È¤¤¤¦¤³¤È¤¬³Î¼Â¤Ç¤¹¤«¤é¡¢ºÇ¸å¤ÎÉôʬ¤ÏElse¤À¤±¤òµ½Ò¤¹¤ì¤Ð¤¤¤¤¤Ç¤¹¤Í¡£¤â¤·¤âÊÑ¿ô £É ¤ÎÃæ¿È¤Ë£±¡Á£³°Ê³°¤Î¿ôÃͤ¬Æþ¤Ã¤Æ¤¤¤ë²ÄǽÀ¤¬¤¢¤ë¾ì¹ç¤Ï¡¢£±¡Á£³°Ê³°¤ÎÁ´¤Æ¤Î¿ôÃͤǡØ3¤Ç¤¹¡Ù¤Èɽ¼¨¤µ¤ì¤Á¤ã¤¤¤Þ¤¹¤«¤é¤Þ¤º¤¤¤Ç¤¹¤±¤É¤Í¡£
ElseIf¤Ï¡¢Æ±¤¸Ifʸ¤Î¤Ê¤«¤Ç²¿Å٤Ǥâ»È¤¨¤Þ¤¹¡£¤¤¤¯¤é¤Ç¤â¾ò·ïʬ´ô¤ÏÁý¤ä¤¹¤³¤È¤¬¤Ç¤¤ë¤Î¤Ç¤¹¡£¤Ç¤¹¤«¤é¡¢Î㤨¤Ð¼¡¤Î¤è¤¦¤Ê¥³¡¼¥É¤â¥¥Á¥ó¤Èư¤¤Þ¤¹¡£
Sub IfTest()
Dim I As Integer
I = Int(Rnd * 5) + 1
If I = 1 Then
MsgBox "1¤Ç¤¹"
ElseIf I = 2 Then
MsgBox "2¤Ç¤¹"
ElseIf I = 3 Then
MsgBox "3¤Ç¤¹"
ElseIf I = 4 Then
MsgBox "4¤Ç¤¹"
ElseIf I = 5 Then
MsgBox "5¤Ç¤¹"
End If
End Sub
Dim I As Integer
I = Int(Rnd * 5) + 1
If I = 1 Then
MsgBox "1¤Ç¤¹"
ElseIf I = 2 Then
MsgBox "2¤Ç¤¹"
ElseIf I = 3 Then
MsgBox "3¤Ç¤¹"
ElseIf I = 4 Then
MsgBox "4¤Ç¤¹"
ElseIf I = 5 Then
MsgBox "5¤Ç¤¹"
End If
End Sub
¢£¤Þ¤È¤á
¾ò·ïʬ´ô¤ò¤¦¤Þ¤¯»È¤¤¤³¤Ê¤¹¤³¤È¤Ë¤è¤Ã¤Æ¡¢ÍÍ¡¹¤Ê¾õ¶·¤Ë±þ¤¸¤Æ¡¢°Û¤Ê¤ë½èÍý¤ò¹Ô¤¦¤³¤È¤¬¤Ç¤¤Þ¤¹¡£¤¸¤ã¤ó¤±¤ó¤Ï¼«Ê¬¤ÈÁê¼ê¤ÎÌò¼¡Âè¤Ç¡¢·ë²Ì¤¬Ê¬¤«¤ì¤ë¥²¡¼¥à¤Ç¤¹¡£¾å¼ê¤Ë¾ò·ïʬ´ô¤ò»È¤¦¤³¤È¤¬¡¢¤¸¤ã¤ó¤±¤ó¥²¡¼¥à¤òºî¤ë¤¦¤¨¤Ç·ç¤«¤»¤Ê¤¤Í×ÁǤʤΤǤ¹¡£
º£²ó¡¢Ifʸ¤ò¥Þ¥¹¥¿¡¼¤Ç¤¤¿¤³¤È¤Ç¡¢¤¸¤ã¤ó¤±¤ó¥²¡¼¥à¤òºîÀ®¤¹¤ë¤¿¤á¤Î¹Í¤¨Êý¤ò¡¢¤Û¤ÜÍý²ò¤Ç¤¤¿¤È¸À¤Ã¤Æ¤¤¤¤¤È»×¤¤¤Þ¤¹¡£¼¡²ó¤Ï¡¢¤¸¤ã¤ó¤±¤ó¥²¡¼¥à¤Î¥²¡¼¥à²èÌ̤òÀ߷פ·¤Æ¤ß¤ë¤³¤È¤Ë¤·¤Þ¤¹¡£
¢£³Ê¸À
¥²¡¼¥à¤Ë¤Ï¾ò·ïʬ´ô¤Ï·ç¤«¤»¤Ê¤¤
¾ò·ïʬ´ô¤ò¹Ô¤¦¤¿¤á¤Ë¤Ï£É£æÊ¸¤ò»È¤¦
£Å£ì£ó£å£É£æ¤ò»È¤¦¤³¤È¤Ç¤µ¤é¤ËºÙ¤«¤¯Ê¬´ô²Äǽ
¥²¡¼¥à¤Ë¸Â¤é¤º¡¢¾ò·ïʬ´ô¤ÏͽÅÍפʳµÇ°¤Î¤Ò¤È¤Ä¡£
¤·¤Ã¤«¤ê³Ð¤¨¤Æ¤ª¤¤Þ¤·¤ç¤¦¡£





