主题：求助代码

此主题相关图片如下：随机显示.jpg

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:测试.foxdb

http://www.foxtable.com/help/topics/0349.htm

代码

 

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
msgbox(String.Join("", str))