¹ØÓÚVBÖÐµÄ rnd£¨£©º¯Êý½á¹û
rnd µÄ½á¹ûÊÇ Çø¼ä[ 0£¬1£© £¬¿ÉÒÔµÈÓÚ0£¬ ¶ø²»»áµÈÓÚ1£¬ ¶Ôô£¿£¿ ÓÐÈË˵¿ÉÒÔµÈÓÚ0£¬ÓеÄ˵²»ÐÐ
Rnd º¯Êý·µ»ØСÓÚ 1 µ«´óÓÚ»òµÈÓÚ 0 µÄÖµ ÒªµÈÓÚ0¾ÍÈ¡Õû¡£ÒýÓà rnd µÄ½á¹ûÊÇ Çø¼ä[ 0£¬1£© £¬¿ÉÒÔµÈÓÚ0£¬ ¶ø²»»áµÈÓÚ1£¬ ¶Ôô£¿£¿ ÓÐÈË˵¿ÉÒÔµÈÓÚ0£¬ÓеÄ˵²»ÐÐ [0,1)ÕýÈ·! 'ÔÔòÉÏ¿ÉÒÔΪ0 , µ«¼¸ÂʺÜС Private Sub Command1_Click() For I = 1 To 10000 Randomize Debug.Print Rnd Next End Sub 'Êä³ö¼¸¸ö0?ÒýÓà ÒýÓÃÂ¥Ö÷ april_fool µÄ»Ø¸´: rnd µÄ½á¹ûÊÇ Çø¼ä[ 0£¬1£© £¬¿ÉÒÔµÈÓÚ0£¬ ¶ø²»»áµÈÓÚ1£¬ ¶Ôô£¿£¿ ÓÐÈË˵¿ÉÒÔµÈÓÚ0£¬ÓеÄ˵²»ÐÐ [0,1)ÕýÈ·! ÕâÖÖÎÊÌâÒ²Òª¶¯ÓôúÂë½â¾ö°¡ ·þÁËU ÒýÓà 'ÔÔòÉÏ¿ÉÒÔΪ0 , µ«¼¸ÂʺÜС Private Sub Command1_Click() For I = 1 To 10000 Randomize Debug.Print Rnd Next End Sub 'Êä³ö¼¸¸ö0? ÕâÊǶ¨Ò壬ÎãÓ¹ÖÊÒÉ rnd[0 1)Ö»ÄÜÈ¡µ½0»ò0µ½1µÄÊý²»ÄܵÈÓÚ1 Ëæ»úÈ¡Á˼¸¸öÒÚµÄÊý×Ö£¬Ã»Óз¢ÏÖµÈÓÚ0ºÍµÈÓÚ1µÄÇé¿ö³öÏÖ¡£ 0µ½1Ö®¼äµÄСÊýÊÇÎÞÇî¶à¸ö ¼¸ÒÚ¸ö²»³öÏÖºÜÕý³£ ¡Ì ÒýÓà 0µ½1Ö®¼äµÄСÊýÊÇÎÞÇî¶à¸ö ¼¸ÒÚ¸ö²»³öÏÖºÜÕý³£ [0,1) Æäʵ¾ÍÊÇÒ»¸ö¸¡µãÊýÈ¥µô½×Âë¡£ ²
Ïà¹ØÎÊ´ð£º
ΪʲôCдµÄDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷Óã¿ VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿ 1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿ 2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îÇ°£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
VBżѧµÃ²»´í£¬ÏÖÔÚ´óÒ»£¬¸ßÈýµÄʱºò¾ÍѧVBÁË£¬ÏÖÔÚѧУÀﶼÊÇѧC#ºÍVB.NETµÄÐֵܶࡣ¡£¡£ żҪתÐÐVB.NETÁË~µ±ÄêѧVBѧÁË2Ä꣬¶ÔVBÀïÃæµÄ³£Óú¯Êý¶¼Ê®·ÖÁ˽⡣ Select¡¢If½á¹¹¡¢For NextÑ»·¡¢µÈ¶¼Á˽⡣¡£¡£ ......
ÔÚvbÕâ±à³ÌÀïËƺõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵ģ¬µ«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡ û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡ À´½Óµã·Ö ......
±ÈÈçÎÒ´ò¿ª×ÀÃæµÄ¡°1.txt¡±Îı¾£¬ÀïÃæµÚÒ»ÐÐÊÇ¡°111¡±£¬ÓÃVBÔõôд¸ö³ÌÐò£¬¿ÉÒÔ¶¨Ê±¸Ä±ä¡°111¡±Îª¡°222¡±£¬ÔÙ¸ô¶Îʱ¼ä±ä³É¡°333¡±£¬Ôõôд ..... ¶ÔÕýÔÚÔËÐеÄÎı¾ÓÐЧÂ𣬶ÔÕýÔÚÔËÐеÄÎı¾Äܲ»ÄÜÂíÉÏ¿´µ½±ä»¯£¨¿ ......