Vb随机抽奖教程

暗淡？团队(8)，？teamA(4)，？teamB(4)？作为？弦，？我%，？j%

团队(1)？=?“中国”

团队(2)？=?“美国”

团队(三)？=?“巴西”

团队(4)？=?“古巴”

团队(5)？=?“俄罗斯”

团队(6)？=?“荷兰”

团队(7)？=?“德国”

团队(8)？=?“西班牙”

为了什么？我？=?1?去哪？八

x？=?Int((9？-?我)？*?Rnd？+?1)'剩余随机选择

如果？我？& gt？4?然后

teamA(我？-?4)?=?团队(x)

其他

teamB(一)？=?团队(x)

结束？如果

为了什么？j？=?x？去哪？八

如果？j？& lt？8?然后呢？队(j)？=?团队(j？+?1)

然后

然后

Text1。文字？=?teamA(1)？& amp？空间(2)？& amp？teamA(2)？& amp？空间(2)？& amp？teamA(3)？& amp？空间(2)？& amp？teamA(4)

文本2。文字？=?teamB(1)？& amp？空间(2)？& amp？teamB(2)？& amp？空间(2)？& amp？teamB(3)？& amp？空间(2)？& amp？团队B(4)

结束？潜水艇