1ï¼Rnd å½æ°ï¼è¿åä¸ä¸ªå å«éæºæ°å¼ç Singleã
说æï¼
Rnd å½æ°è¿åå°äº 1 ä½å¤§äºæçäº 0 çå¼ã
2ï¼Int å½æ°ï¼è¿ååæ°çæ´æ°é¨åã
è¯æ³ï¼
Int(number)
Int ä¼å é¤ number çå°æ°é¨ä»½èè¿åå©ä¸çæ´æ°ã
3ï¼Rnd å½æ°ç¤ºä¾ï¼
æ¬ç¤ºä¾ä½¿ç¨ Rnd å½æ°éæºçæä¸ä¸ª 1 å° 6 çéæºæ´æ°ã
Dim MyValue
MyValue = Int((6 * Rnd) + 1) ' çæ 1 å° 6 ä¹é´çéæºæ°å¼ã