ÓÐÈË˵¿ÉÒÔµÈÓÚ0£¬ÓеÄ˵²»ÐÐRnd º¯Êý·µ»ØСÓÚ 1 µ«´óÓÚ»òµÈÓÚ 0 µÄÖµ ÒªµÈÓÚ0¾ÍÈ¡Õû¡£ [0,1)ÕýÈ·! 'ÔÔòÉÏ¿ÉÒÔΪ0 , µ«¼¸ÂʺÜС Private Sub Command1_Click() For I = 1 To 10000 Randomize Debug.Print Rnd Next End Sub 'Êä³ö¼¸¸ö0? ÕâÖÖÎÊÌâÒ²Òª¶¯ÓôúÂë½â¾ö°¡ ·þÁËU
ÔÚvbÖÐÔõôÅжϣ¬²åÈëµ½Êý¾Ý¿âÖеÄÖµÊÇÖظ´µÄ£¬±¾È˲ŸսӴ¥VBÓïÑÔ£¬ÉõÊÇÓкöàµØ·½»¹²»¶®£¬»¹Çë¸÷λ´óÏÀÃǸø³ö´úÂ룬ллÁËѽ£¡£¡£¡ ²åÈë֮ǰselectһϰ¢¡£ »òÕßдһ¸ö×éºÏSQL²åÈëÓï¾ä£¬ÀýÈç IF not Exist( & ......