dim str as string
dim arraya() as string
dim i as integer
redim arraya(10) as string
for i=0 to 10
arraya(i)="a"+cstr(i)
str=str+"'"+arraya(i)+"',"
'注意:如果为数值型 的就不要加那两个'号
next
str= left(str,len(str)-1)
xx="select 字段111 from 表3 where 字段1 in (" & str & ")"