¹ØÓÚ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ÖÐµÄ ......
Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click() Dim app As New Illustrator.Application Dim doc As Illustrator.Document Dim thislayer As Illustrator.Layer ......
ÔÚvbÕâ±à³ÌÀïËƺõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵ģ¬µ«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡ û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡ À´½Óµã·Ö ......
±ÈÈçÎÒ´ò¿ª×ÀÃæµÄ¡°1.txt¡±Îı¾£¬ÀïÃæµÚÒ»ÐÐÊÇ¡°111¡±£¬ÓÃVBÔõôд¸ö³ÌÐò£¬¿ÉÒÔ¶¨Ê±¸Ä±ä¡°111¡±Îª¡°222¡±£¬ÔÙ¸ô¶Îʱ¼ä±ä³É¡°333¡±£¬Ôõôд ..... ¶ÔÕýÔÚÔËÐеÄÎı¾ÓÐЧÂ𣬶ÔÕýÔÚÔËÐеÄÎı¾Äܲ»ÄÜÂíÉÏ¿´µ½±ä»¯£¨¿ ......
¿´ÁËһЩVB iniÎļþдÈë¶ÁÈ¡µÄ·½·¨ µ«ÊÇ»¹ÊDz»ÖªµÀÔõôд£¬ÉÏÃæдÁ˺ܳ¤ ºÜ¶à£¬µ«ÊÇÎÒ²»ÖªµÀÔõôÓã¬ÎÒÏëÎÊÒ»ÏÂÔõÑùд²ÅÄÜʵÏÖÔÚTEXT1ÖÐд×Ö£¬È»ºóµãCommand1Ìá½»£¬È»ºóTEXT1ÀïÃæµÄÊý×Ö¾Íд½øINIÀïÃæ[Section]µÄKey1 ......