vb 判断重复并选取数据问题

Question

我这里有个名字的名单，

从这些里面随机挑选3个出来， 然后在第二次的挑选的时候不能出现上次出现的3个。第三次挑选不能出现第二次的3个，可以出现第一次出现的三个名字 请专家大神帮帮忙~~~必有重谢

Answer 1

简单的做法，再加一个list控件，把上面的所有项加入新的list控件里，每选一个就把新list里对应项删除，再选的时候就不会有重复了追问

但是那样第三次挑选的时候就不会选到第一次出现的数字了 存在一些漏失名字 还有就是那些名字都是我从EXCEL粘帖过来的，怎么直接用简单的代码放进LIST控件里面呢？

Answer 2

'简单举例
'在窗口添加 Text1、 Text2 、List1、Command1 控键
'EXCEL粘帖过的文本放在Text1
'Command1按钮将Text1引入到List1，每行为一条记录
'点击List1选择内容，Text2 得出结果
Dim j1 As Long, j2 As Long, j3(1 To 3) As String
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Command1.Caption = "引入Text1文本"
j1 = 1
j2 = 0
End Sub
Private Sub Command1_Click()
T = Split(Text1.Text, vbCrLf)
List1.Clear
For i = 0 To UBound(T)
If T(i) <> j3(1) And T(i) <> j3(2) And T(i) <> j3(3) Then List1.AddItem T(i)
Next
End Sub
Private Sub List1_Click()
If j2 = 0 Then Text2.Text = Text2.Text & "第" & j1 & "次选择" & vbCrLf
Text2.Text = Text2.Text & List1.Text & vbCrLf
j2 = j2 + 1
j3(j2) = List1.Text
List1.RemoveItem (List1.ListIndex)
If j2 = 3 Then j1 = j1 + 1: j2 = 0: Command1_Click
End Sub
'打字很辛苦滴！请采纳！谢谢！本回答被网友采纳

Answer 3

dim v_a as string=第一个出现的
dim v_b as string=第二个出现的
dim v_c as string=第三个出现的
下次筛选用 remove 把这三个排除筛选
然后用Add再加进去
再筛选同上办法