VB使ç¨Rnd å½æ°äº§çéæºæ°ã
Rnd å½æ°ï¼è¿åä¸ä¸ªå å«éæºæ°å¼ç Singleã
Rnd å½æ°ç¤ºä¾
æ¬ç¤ºä¾ä½¿ç¨ Rnd å½æ°éæºçæä¸ä¸ª 1 å° 6 çéæºæ´æ°ã
Dim MyValue
MyValue = Int((6 * Rnd) + 1) ' çæ 1 å° 6 ä¹é´çéæºæ°å¼