Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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µÄ³É¹¦Ö®Â· - À©³ä»°Ìâ / ¹²ÏíÈí¼þ£¨×ßÏòº£Í⣩

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




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

À´½Óµã·Ö

......

VBÖÐÔõôÑùÔÚ±í¸ñÖÐÐÞ¸Ä×ÖÌ壿 - VB / »ù´¡Àà

±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö
´úÂëÓ¦¸ÃÔõô´ò£¿
LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......

vb²åÈëÊý¾Ý¿âÖظ´ÖµÎÊÌâ

ÔÚvbÖÐÔõôÅжϣ¬²åÈëµ½Êý¾Ý¿âÖеÄÖµÊÇÖظ´µÄ£¬±¾È˲ŸսӴ¥VBÓïÑÔ£¬ÉõÊÇÓкöàµØ·½»¹²»¶®£¬»¹Çë¸÷λ´óÏÀÃǸø³ö´úÂ룬ллÁËѽ£¡£¡£¡
²åÈë֮ǰselectһϰ¢¡£
»òÕßдһ¸ö×éºÏSQL²åÈëÓï¾ä£¬ÀýÈç
IF not Exist(
& ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ