字典方面的基础学习.docVIP

  • 1
  • 0
  • 约4.69千字
  • 约 4页
  • 2025-09-04 发布于广西
  • 举报

字典方面的基础学习

字典方面的基础学习,谢谢各位帮忙

ccc

想取得arr的不重复值显示在第1行,请帮忙修改代码,谢谢

optionbase1

Subccc()

Dimd,arr,i%

Setd=CreateObject(Scripting.Dictionary)

arr=Array(1,1,1,2,3,44,4,44,4,5)

Fori=1ToUBound(arr)

IfNotd.exists(arr(i))Then

d.Addarr(i)

EndIf

Next

EndSub

呵呵,虚心学习是好

文档评论(0)

1亿VIP精品文档

相关文档