Dim a() As String = {"张","林","陈","王","李"} Dim b() As String = {"建国","国庆","旺财"} Dim c() As String = {"男","女"} Dim ls As new List(Of String) For Index As Integer = 0 To 10 Dim s As String = a(rand.Next(0,5)) & b(rand.Next(0,3)) & c(rand.Next(0,2)) If ls.Contains(s) = False ls.add(s) Output.Show(s) Else index -= 1 End If Next
加好友 
发短信
Post By：2016/3/7 14:12:00 [显示全部帖子]
