VFP AI 插件(ver:20251007)测试报告

SET DEFAULT TO "D:\VFP\xinjie\AI\AI20251007"
Do AI.app

SET DEFAULT TO "D:\VFP\xinjie\AI\AI20251007"
Do AI.app
MODIFY COMMAND 新程序

*** <summary>
*** 生成指定数量的不重复随机数
*** </summary>
*** <param name="tnCount">数值型参数，要生成的随机数数量</param>
*** <param name="tnMin">数值型参数，随机数最小值</param>
*** <param name="tnMax">数值型参数，随机数最大值</param>
*** <returns>逻辑型返回值，成功返回.T.，失败返回.F.</returns>
Function GenerateUniqueRandomNumbers(tnCount As Number, tnMin As Number, tnMax As Number) As Logical
    Private All Like l*
    Local llResult    As Logical
    Local lnIndex     As Number
    Local lnRandom    As Number
    Local lnRange     As Number

    m.llResult = .T.

    Try
        *!* 参数验证
        If m.tnCount <= 0 Or m.tnMin >= m.tnMax
            m.llResult = .F.
            Return m.llResult
        EndIf

        *!* 计算数值范围
        m.lnRange = m.tnMax - m.tnMin + 1

        *!* 检查范围是否足够生成不重复随机数
        If m.tnCount > m.lnRange
            m.llResult = .F.
            Return m.llResult
        EndIf

        *!* 声明数组存储结果和标记数组
        Dimension laResult[m.tnCount]
        Dimension laUsed[m.lnRange]

        *!* 初始化标记数组
        For m.lnIndex = 1 To m.lnRange
            m.laUsed[m.lnIndex] = .F.
        EndFor

        *!* 生成不重复随机数
        m.lnIndex = 1
        Do While m.lnIndex <= m.tnCount
            m.lnRandom = Int(Rand() * m.lnRange) + 1

            If Not m.laUsed[m.lnRandom]
                m.laResult[m.lnIndex] = m.tnMin + m.lnRandom - 1
                m.laUsed[m.lnRandom] = .T.
                m.lnIndex = m.lnIndex + 1
            EndIf
        EndDo

        *!* 输出结果到屏幕
        For m.lnIndex = 1 To m.tnCount
            ? Transform(m.laResult[m.lnIndex])
        EndFor

    Catch To loException
        m.llResult = .F.
    Finally
        *!* 清理资源
        Release All Like la*
    EndTry

    Return m.llResult
EndFunc