將紅球(6)顯示為整數
Rnd(調整大小)
對於k = 0到32
GRedBall(k) = k + 1
下壹個k
對於j = 0到5
k = Int(Rnd * (33 - j))
紅球(j) = GRedBall(k)
對於l = k至32 - j
如果我& lt& gt那就32
GRedBall(l) = GRedBall(l + 1)
如果…就會結束
下壹個l
下壹個j
red ball(6)= Int(Rnd * 15)+1
紅球(0)& amp；”& amp紅球(1)”& amp紅球2 & amp；”& amp紅球(3)& amp；”& amp紅球(4)& amp；”& amp紅球5 & amp；”& amp紅球(6))
用VB寫壹個來處理。