找回密码
 加入
搜索
查看: 236|回复: 1

数字排序没生效。。

[复制链接]
发表于 2026-3-14 05:51:10 | 显示全部楼层 |阅读模式
#include <Array.au3>

Local $random
For $i = 1 To 3
        $random = _ran(6)
        _ArraySort($random, 1, 0, 0, 1)
        _ArrayDisplay($random)
        ConsoleWrite($random & @CRLF)
Next


Func _ran($num)
        If Not $num Then $num = 8
        Local $string
        For $i = 0 To $num - 1
                Local $sui_ji_1 = Random(0, 9, 1)
                If StringInStr($string, $sui_ji_1) Then
                        $i -= 1
                        ContinueLoop
                Else
                        $string &= $sui_ji_1
                EndIf
        Next
        Return $string
EndFunc   ;==>_ran
发表于 2026-3-14 06:46:53 来自手机 | 显示全部楼层
_ran 函数都没产生数组,如何排序?
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2026-7-11 07:08 , Processed in 0.065536 second(s), 20 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表