Question

VB6 List1问题

如何打乱List1内容~~~(不要丢失内容)

要打乱速度快~~无规律~~不会丢失内容~~代码少的!!!
Wo爱G猫H猫T 的结果怎么是一堆数字
风シ残留 每次重新运行程序，之后打乱的顺序都是一样的，我要无规律的~~

Answer 1

Private Sub Command2_Click()
Dim i As Integer
Dim Temp As String
Dim intRnd As String
For i = 0 To List1.ListCount - 1
Temp = List1.List(i)
intRnd = xRnd
List1.List(i) = List1.List(intRnd)
List1.List(intRnd) = Temp
Next
End Sub

Function xRnd() As Integer
Dim x As Integer
Randomize
x = Int(Rnd * 10)
If x > List1.ListCount Then
xRnd
Else
xRnd = x
Exit Function
End If
End Function

不懂可以问我,QQ463357907

计算机中不可能存在真正的随机发生器，都是按照某种公式计算出来的伪随机数。因此每次计算数据都一样。如果想要得到不一样的数据可以用Randomize初始化一下。

上面的代码已修改

Answer 2

Private Sub Command1_Click()
Dim i As Integer
Dim x(999) As Integer
Dim Rnd1 As Integer
Dim Rnd2 As Integer
Dim x1 As Integer
Randomize
For i = 1 To 1000
x(i - 1) = i
Next
For i = 0 To 9999

Rnd1 = Int((1000 * Rnd))
Rnd2 = Int((1000 * Rnd))
x1 = x(Rnd1)
x(Rnd1) = x(Rnd2)
x(Rnd2) = x1
Next
List1.Clear
For i = 1 To 1000

List1.AddItem x(i - 1)
Next

End Sub

关于我的程序，你得简单修改一下吧。。。。
我的程序我连语法都没去读。。。。
只是给了你一个模型让你去参照的。。。。