彩票软件vb的编程

私人?Sub?Command1_Click()

暗淡?团队(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)

结束?潜水艇