这个程序可以运行不？

[sjmlsxp]

redim a(Item, 2),t(Count)
'定义2数组，数组a用来储存记录，数组t用来删选记录
'---------------------------------------
'初始数组数值，目的为了插入数据以后和此值做比较
for each j in t
j=0
next
'---------------------------------------
'---------------------------------------
' 随机抽取记录号
Randomize timer '初始化随机数生成器
for j=1 to Item
k=int(rnd*Count+1) '从总数里面随机取一条记录
do while t(k)<>0 '判断是否记录是否已经在数组中
k=int(rnd*Item+1)
loop
t(k)=1 '第k条记录被选中
next
这是我网上摘来的 谁能告诉我这个有用吗？
我觉得那个循环有问题 其中Item=4 Count=50

[sjmlsxp]

http://www.94nn.com/html/Access/20071119/813.html
完整程序在这个网址上