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 很大很大数字) ，能否简化上面的程序。

可以 哈希表

什么表？？？？

刚才太急了 没来得及说

哈希表是一个防冲突的很好的手段，利用函数Hash(x)=y确立哈希关系。哈希函数的选取有很大任意性。

最简单的Hash(x)=x,即你维护一个哈希表hashbiao() as boolean

hashbiao(Hash(i))=hashbiao(i)表示i这个数是否取到过，每次取到j的时候就将hashbiao(Hash(j))置为True

Hash函数也可以用其他的，这个Hash(x)=x是保证一一对应的，如果不能保证一一对应的话hashbiao()的元素类型就可以用i（要取的数）的范围了。遇到多对一的哈希情况可以用线性探查法等方法解决。

VB描述这些东西不清楚……pascal里面数组下标用中括号括起来，函数用小括号，这样看起来就清楚多了

找到不少资料 你看看吧
http://www.baidu.com/baidu?word=%CF%DF%D0%D4%CC%BD%B2%E9%B7%A8

一敲不通！！！！！！！！！！！！！！

数据结构问题，并非语言问题！

也许你的确一窍不通，但不要用这句话结束你的提问。