算法大擂台,百分大派送

popok 2003-09-14 03:46:22
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组)完全不重复。
欢迎大家讨论,帮忙,给出最佳算法,不胜感激。
...全文
63 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
sindyzhou 2003-09-15
  • 打赏
  • 举报
回复
没看懂这句话

要求每组所有相邻的2位数(共96组)完全不重复
xixigongzhu 2003-09-15
  • 打赏
  • 举报
回复
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

16,549

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧