如何随机生成不重复的4个1~4的整数放在集合/数组里？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何随机生成不重复的4个1~4的整数放在集合/数组里？

共有4600人关注过本帖树形打印复制链接主题：如何随机生成不重复的4个1~4的整数放在集合/数组里？

狐狸爸爸

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2013/6/24 8:25:00 [显示全部帖子]

生成随机数：

http://www.foxtable.com/help/topics/0349.htm

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2013/6/24 14:59:00 [显示全部帖子]

Dim Values As New List(Of Integer)
Do
    Dim b As Integer = Rand.Next(0,4)
    If values.Contains(b)= False Then
        values.Add(b)
    End If
    If values.count = 4 Then
        Exit Do
    End If
Loop

狐狸爸爸

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2013/6/24 16:06:00 [显示全部帖子]

1,4

0,3

都只有三个随机数，下面的条件永远不会成立：

If values.count = 4 Then

你在命令窗口反复执行：

Output.show(Rand.Next(1,4))

就知道了

下一主题 >> << 上一主题

主题：如何随机生成不重复的4个1~4的整数放在集合/数组里？