关于随机数的问题，请大神指点啊

有没有大神告诉小弟一下

Private Sub Command1_Click()
n = Int(Rnd() * 6 + 1)
Print n
Select Case n
Case 1: Text1 = "王": Text2 = "新三，新思,新明，新五"
Case 2: Text1 = "王": Text2 = "新三，新思,新明，新五"
Case 3: Text1 = "张": Text2 = "新新，新二,新明，新五"
Case 4: Text1 = "张": Text2 = "新新，新二,新明，新五"
Case 5: Text1 = "李": Text2 = "新新，新二,新三，新思"
Case 6: Text1 = "李": Text2 = "新新，新二,新三，新思"
End Select
End Sub

楼上是跟你开玩笑呢
思路是这样，一个数组，放了所有的姓名。
从中随机一个，如果同前姓，重新随机
然后，取除姓外的名字放入后面

下面给你一个例子。
1、这是界面。

2、这是代码

3、运行，并输入一个姓（出错及提示部分，不演示，自己可以试验）

4、在上述情况下，反复点按钮，输出的不同名字，最终会重复的。

名 姓分开 加一按钮
Private Sub Command1_Click()
n = Int(Rnd() * 6 + 1)
Print n
Select Case n
Case 1: Text1 = "王" ': Text2 = "新三，新思,新明，新五"
Case 2: Text1 = "王" ': Text2 = "新三，新思,新明，新五"
Case 3: Text1 = "张" ': 'Text2 = "新新，新二,新明，新五"
Case 4: Text1 = "张" ': 'Text2 = "新新，新二,新明，新五"
Case 5: Text1 = "李" ': Text2 = "新新，新二,新三，新思"
Case 6: Text1 = "李" ': Text2 = "新新，新二,新三，新思"
End Select
End Sub
Private Sub Command2_Click()
n = Int(Rnd() * 4 + 1)
If Text1 = "王" Then
Select Case n
Case 1: Text2 = "新三"
Case 2: Text2 = "新思"
Case 3: Text2 = "新明"
Case 4: Text2 = "新五"
End Select
ElseIf Text1 = "张" Then
Select Case n
Case 1: Text2 = "新新"
Case 2: Text2 = "新二"
Case 3: Text2 = "新明"
Case 4: Text2 = "新五"
End Select
Else
Select Case n
Case 1: Text2 = "新新"
Case 2: Text2 = "新二"
Case 3: Text2 = "新三"
Case 4: Text2 = "新思"
End Select
End If
End Sub

楼上，幸好这数据较少，要是有一万个姓名怎么办呢？哈哈哈