vb，删除数组中的重复元素

Question

如题所述

Answer 1

Private Sub Command1_Click()
S = Array(3, 1, 1, 1, 1, 1, 1, 4, 3, 5, 3)
For i = 0 To UBound(S)
For j = 0 To i - 1
If S(i) = S(j) Then Exit For
Next
If j = i Then Print S(i)
Next
End Sub本回答被提问者采纳