[讨论] 关于不出现重复数字
Function same(s As Integer) As Boolean '判断函数--用来判断是否生成了重复的数字Dim i
For i = 1 To 627 '让s与整个数组进行比较，如果有相同的same函数返回true直，否则返回FALSE
If a(i) = s Then
same = True
Exit For '此处要退出循环，不然后面出现不同直就覆盖了
ElseIf a(i) <> s Then
same = False
End If
Next i
End Function
如果a(i)=a(1 to 很大很大数字) ，能否简化上面的程序。
