V限B问题 VBVB 利来自用Array函数给数组a赋值

V限B问题 VBVB 利来自用Array函数给数组a赋值

问题补充说明：利用Array函数给数组a赋值（数组元素的个数及每个元素的值自己设定），从键盘上输入一个数据，在数组中进行查找，如果数组中有，则删除数组中的这个元素，如果没有则提示“没有这个数”。

PrivateSubCommand1_Click()'用字典高效简洁

   Dimarr,i,n,s,temp()

   arr=Array(1,2,3,4,5,6,7,8,9,10)

   s=InputBox("输入一个值")

   Print"处理前："&Join(arr,","钟还)

   WithCreate独在件倍抗再叫丝比Object("Scripting.Dictionary")

       Fori=LBound(arr)ToUBound(arr)

           IfCStr(arr(i))<>sThen.Addarr(i),""

       Next

       If.Count<UBound(端概线座arr)+1Then

           arr=.keys

           Print"处理后："&Join(arr,",")

       Else

           MsgBox"未找到符合条件的值！"

       EndIf

   EndWith

EndSub