1, 彩票生成系统: 生成一组随机的双色球彩票(一共7个数字,前六位随机范围为1-33,最后一位范围1-16),

[复制链接]
查看11 | 回复2 | 2012-1-27 12:31:01 | 显示全部楼层 |阅读模式
Dim GRedBall(32) As IntegerDim RedBall(6) As IntegerRnd (Resize)For k = 0 To 32GRedBall(k) = k + 1Next k
For j = 0 To 5
k = Int(Rnd * (33 - j))
RedBall(j) = GRedBall(k)
For l = k To 32 - j
If l32 Then
GRedBall(l) = GRedBall(l + 1)
End If...
回复

使用道具 举报

千问 | 2012-1-27 12:31:01 | 显示全部楼层
07.10.11.13.22.24.14...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行