Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

¹ØÓÚ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²»Äܵ÷ÓÃ

ΪʲôCдµÄDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷Óã¿
VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿

1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿
2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......

Çó½ÌÏÂVBÈçºÎ¸øD3DÓÎϷдÆÁ - VB / API

ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îÇ°£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......

´ÓVBתÐÐVB.NET~~~¿ªÊ¼µÄʱºòÈçºÎѧ»ù´¡ÈëÃÅ°¡~

VBżѧµÃ²»´í£¬ÏÖÔÚ´óÒ»£¬¸ßÈýµÄʱºò¾ÍѧVBÁË£¬ÏÖÔÚѧУÀﶼÊÇѧC#ºÍVB.NETµÄÐֵܶࡣ¡£¡£
żҪתÐÐVB.NETÁË~µ±ÄêѧVBѧÁË2Ä꣬¶ÔVBÀïÃæµÄ³£Óú¯Êý¶¼Ê®·ÖÁ˽⡣
Select¡¢If½á¹¹¡¢For NextÑ­»·¡¢µÈ¶¼Á˽⡣¡£¡£ ......

vbµÄ³É¹¦Ö®Â· - À©³ä»°Ìâ / ¹²ÏíÈí¼þ£¨×ßÏòº£Í⣩

ÔÚvbÕâ±à³ÌÀïËƺõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵ģ¬µ«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡




û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡

À´½Óµã·Ö

......

ÔõôÓÃVBдһ¸ö¿ÉÒԸıäÒ»¸öÎı¾µÄÄÚÈݵijÌÐò

±ÈÈçÎÒ´ò¿ª×ÀÃæµÄ¡°1.txt¡±Îı¾£¬ÀïÃæµÚÒ»ÐÐÊÇ¡°111¡±£¬ÓÃVBÔõôд¸ö³ÌÐò£¬¿ÉÒÔ¶¨Ê±¸Ä±ä¡°111¡±Îª¡°222¡±£¬ÔÙ¸ô¶Îʱ¼ä±ä³É¡°333¡±£¬Ôõôд .....
¶ÔÕýÔÚÔËÐеÄÎı¾ÓÐЧÂ𣬶ÔÕýÔÚÔËÐеÄÎı¾Äܲ»ÄÜÂíÉÏ¿´µ½±ä»¯£¨¿ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ