游戏红球

将红球(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写一个来处理。