vb 删除数组里的重复数 Sub Macro1()Dim i As IntegerDim j As IntegerDim k As IntegerDim a(5)As VariantDim b()As Variant初始化数组a（）a(0)=1a(1)=2a(2)=1a(3)=3a(4)=2a(5)=3k=0'将重复元素替换为空For i=0 To UBound(a)For j=i+1 To UBound(a)If a(i)=a(j)Thena(j)=\"End IfNext jNext i‘比较，不为空的元素添加到新的数组中e799bee5baa6e997aee7ad94e58685e5aeb931333262353437For i=0 To UBound(a)If a(i)<；>；\"\"ThenReDim Preserve b(k)b(k)=a(i)k=k+1End IfNext i打印输出新数组的元素For i=0 To UBound(b)Debug.Print b(i)Next iEnd Sub
vb 删除重复数字 Private Sub Command1_Click()bbb=Split(Text1.Text，；For i=0 To UBound(bbb)-1For j=0 To 9If InStr(bbb(i)，CStr(j))Then kkk=kkk&jNext jIf InStr(ddd，kkk&\"\")=0 Thenddd=ddd&kkk&\"Text2.Text=Text2.Text&kkk&vbCrLfEnd Ifkkk=\"Next iEnd Sub
请教高手啊 VB下标越界什么意思？ 删除重复数 请教高手啊 VB下标越界什么意思？删除重复数 Option ExplicitOption Base 1Dim a()As IntegerPrivate Sub Command1_Click()Dim n As Integer，i As Integer n=InputBox(。
