Question

Vb list中有很多数，将一个数输入到text中，跟list中的数比较，如果相同，则删除，不同，则删除最后一项

Dim a%, k%
a = Val(Text1)

For k = 0 To List1.ListCount - 1
If a = Val(List1.List(k)) Then List1.RemoveItem k
Next k
这样可以删除相同的，但是如果不同，删除最后一项，应该怎么写代码

Answer 1

用C#就简单了,直接:
String[] a = {"asd","asd","ba","caa"};

String[] b = a.Distinct().ToArray();

Answer 2

Dim YesNo As Boolean
Dim a%, k%
a = Val(Text1)

For k = 0 To List1.ListCount - 1
If a = Val(List1.List(k)) Then
List1.RemoveItem k
YesNo = True
Exit For
End If
Next k
If Not YesNo Then
List1.RemoveItem List1.ListCount - 1
End If