彩票软件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)
结束?潜水艇