请大神帮忙做一个配对随机排次的窗体

烟火孤星泪

排次是0-9中的任意数字
1、首先输入多个排次作为参考，最少输入6个数据。

3、采集前6-50个数据，重复的数值只保留第一个，第二个以后的删除，处理后，只提取前6位数值

4、随机排次6是Ｃ１3中017436的任一位，即显示配对正确。


详情请查看附件，是否根据文档中的工作流程，做成窗体，或者用ＶＢＡ生成。

随机排次.rar (23.89 KB, 下载次数: 6)

2018-9-18 16:38 上传

点击文件名下载附件

lsdongjh

核心功能：

1. Sub Test()
   
2.     Debug.Print GetStr("724555644898255209")
   
3. End Sub
   
4. 
   
5. Function GetStr(strSource As String) As String
   
6.     Dim strFirst As String, strEnd As String
   
7.     Dim strResult As String
   
8.    
   
9.     Do
   
10.         strFirst = Mid(strSource, 1, 1)
    
11.         strResult = strResult & strFirst
    
12.         strEnd = Mid(strSource, 2)
    
13.         strSource = Replace(strEnd, strFirst, "")
    
14.     Loop While strSource <> ""
    
15.     strResult = Replace(strResult, " ", "")
    
16.     GetStr = Mid(strResult, 1, 6)
    
17. End Function

复制代码

烟火孤星泪

lsdongjh 发表于 2018-9-18 17:36
核心功能：

复制上去没什么效果啊，

烟火孤星泪

谁可以帮我做个窗体

烟火孤星泪

有帮忙的吗

烟火孤星泪

有帮忙的吗