vb怎么将list里的一组字符串重新随机排列

vb怎么将list里的一组字符串重新随机排列

1)添加一堆字符串在list。
2)获取随机的号码。
3)用循环把list当前的值保存在一个变量。
4)获取list中随机的号码对应的值后，覆盖list当前的值。
5)最后把原先变量的值覆盖list中随机的号码对应的值。


List1.AddItem "a"
List1.AddItem "b"
List1.AddItem "c"
List1.AddItem "d"
List1.AddItem "e"

Dim temp As String

For i = 0 To 4
    rdn = CInt((4 * Rnd()))
    temp = List1.List(i)
    List1.List(i) = List1.List(rdn)
    List1.List(rdn) = temp
Next i

这个使用谁技术就可以可以做了了吧

private sub command1_click()'按钮的单击事件 dim a&, c$'定义变量 for a = 1 to 12'开始12次循环 c = c & chr(int((rnd() * 79)) + 48)'每次产生一个字符。 next a' text1.text = c'将结果输出在文本框中。 end sub'单击事件结束