随笔分类 -  Windows Phone应用开发

WindowsPhone 产生规定范围内的不重复随机数 by VB
摘要：1 Module RandNumber 2 Public Nums() As Integer 3 Public Sub StartCreateNumber(TopNumber As Integer) 4 Dim i, j, k As Integer 5 Dim temp(TopNumber) As Integer 6 ReDim Nums(TopNumber) 7 Dim rnd As New Random(Seed:=Date.Now.Second) 8 For i = 1 To TopNumb... 阅读全文
posted @ 2013-05-29 19:25 _looking.For 阅读(167) 评论(0) 推荐(0)