dim a(99) as string dim i as integer for i=0 to 99 a(i)=i.tostring next 现在要实现一个按钮bt1,当bt1.click 则生成16组7位数。 如:1234567 0325476 9834520 。。。。。。 要求每组所有相邻的2位数(共96组)完全不重复。 欢迎大家讨论,帮忙,给出最佳算法,不胜感激。
Public Shared Function GetGroups() As Integer()
Dim groups(15) As Integer
Dim ran As Random = new Random()
Dim i As Integer
Begin:
While (i < 16)
Dim val As Integer = ran.Next(1000000, 9999999)
Dim m As Integer = 10
While (m < 10000000)
If ((val Mod m) \ (m \ 10) = (val Mod (m * 10)) \ m)
GOTO Begin
End If
m *= 10
End While
groups(i) = val
i += 1
End While
For i = 0 To 15
Console.WriteLine(groups(i).ToString() & ",")
Next
Return groups
End Function