以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何字符串随机组合  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=81459)
--  作者：农村人
--  发布时间：2016/2/28 12:00:00
--  [求助]如何字符串随机组合
假设有字符：“一、二、三、中、上、下、左、右“字符；需要随机组合出多个字符串：一二三中上下左右、上二三中一下左右...；请问代码如何做到？
--  作者：大红袍
--  发布时间：2016/2/28 14:51:00
--  

直接打乱

 

Dim str() As String = {"1", "2", "3", "4", "5", "6", "7", "8", "9", "0", "+", "-", "*", "/", ">"}
For i As Integer = 1 To str.Length \'洗牌测次数
    Dim rnum1 As Integer = Rand.Next(str.Length)
    Dim rnum2 As Integer = Rand.Next(str.Length)
    Dim temp As String = str(rnum1)
    str(rnum1) = str(rnum2)
    str(rnum2) = temp   
Next
Dim data As String = String.Join("", str)
msgbox(data)

--  作者：农村人
--  发布时间：2016/2/28 15:22:00
--  
我找到这个代码是这样的：
Dim a() As String = {"135","138","139"}
Dim b() As String = {"0741","5987","3656","2135"}
Dim c() As String = {"5555","4444","6666","9999","8888"}
For Index As Integer = 0 To 90
    Output.Show(a(rand.Next(0,3)) & b(rand.Next(0,4)) & c(rand.Next(0,5)))
Next
生成如下：
13507419999
13536566666
13521355555
13507419999
13559874444
13521356666
13807415555
...

我现在需要将这代码获取的数据；按行增加到表A，请问如何做？
--  作者：大红袍
--  发布时间：2016/2/28 15:25:00
--  
Dim a() As String = {"135","138","139"}
Dim b() As String = {"0741","5987","3656","2135"}
Dim c() As String = {"5555","4444","6666","9999","8888"}
For Index As Integer = 0 To 90
    Dim nr As DataRow = DataTables("表A").addnew
    nr("第一列") = a(rand.Next(0,3)) & b(rand.Next(0,4)) & c(rand.Next(0,5))
Next
--  作者：农村人
--  发布时间：2016/2/28 15:30:00
--  
非常感谢您的解答。
Dim a() As String = {"135","138","139"} ‘ 此处的数据我想从文本框获取，如何处理{}符号的呢
--  作者：大红袍
--  发布时间：2016/2/28 15:32:00
--  

Dim str As String = "135,138,139"

Dim a() As String = str.Split(",")