vb算法数组实例.doc

互不相等的随机数的生成算法 Private Sub CmdStart_Click) '生成10个[1,100]范围内互不相等的随机整数 Dim R(1 To 10) As Integer '保存生成的10个数 Dim i As Integer, j As Integer i = 1 Do While i