以文本方式查看主题

-  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=75096)
--  作者：三阳开泰
--  发布时间：2015/9/26 17:50:00
--  [求助]怎么在一组数里随机选出两个
比方说：5222，7822，4425，3358，6713..在这五组数字里，随机选出两个数字。求大神指导指导！
--  作者：y2287958
--  发布时间：2015/9/26 22:09:00
--  
Dim Values() As Integer = {5222,7822,4425,3358,6713}
Dim idx,v1,v2 As Integer
Dim vs As new List(of Integer)
vs.AddRange(Values)
idx = Rand.Next(0,vs.Count-1)
v1 = vs(idx)
vs.RemoveAt(idx)
idx = Rand.Next(0,vs.Count-1)
v2 = vs(idx)
Output.Show(v1)
Output.Show(v2)