以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  请教老师随机数问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=119355)
--  作者：killer389
--  发布时间：2018/5/23 13:21:00
--  请教老师随机数问题
     我想做一个随机数的程序  需求是随机出现几个不重复的数字，请问各位老师如何实现。

For i As Integer = 0 To 9
    Output.Show(Rand.Next)
Next
此代码出现的随机数是重复的，怎么才可以避免重复，不吝赐教，谢谢。
--  作者：有点甜
--  发布时间：2018/5/23 14:28:00
--  
Dim ls As new List(Of String)
For i As Integer = 0 To 9
    Dim s = Rand.Next(10)
    Do While ls.Contains(s)
        s = rand.Next(10)
    Loop
    ls.add(s)
    output.show(s)
Next