关于VB的数字随机排列问题，帮帮我吧！

显示全部楼层 · 2010-3-15 21:41:20

10000000000*{你输入的11个数中的随机数}＋1000000000*{你输入的11个数中的随机数}＋100000000*{你输入的11个数中的随机数}＋10000000*{你输入的11个数中的随机数}＋1000000*{你输入的11个数中的随机数}＋100000*{你输入的11个数中的随机数}＋10000*{你输入的11个数中的随机数}＋1000*{你输入的11个数中的随机数}＋100*{你输入的11个数中的随机数}＋10*{你输入的11个数中的随机数}＋1*{你输入的11个数中的随机数}＋由于11位，位数较少，你可以直接输入，用random函数直接从你输入的11个数中产生随机数！

千问 · 2010-3-15 21:41:20

Private Sub Command1_Click()Dim s As String, t As String, i As Integers = Trim(Text1.Text)Do While s""
i = Int(Rnd * Len(s)) + 1
t = t & Mid(s, i, 1)
s = Left(s, i - 1) & Right(s, Len(s) - i)LoopText2.Text = tEnd SubPrivate Sub Form_Load()RandomizeEnd Sub