好象没见到那些：70%、10%、20%

case那里，但好像不能准确表达自定义比例

弄成函数

Clea
nMin1 = 31&&比例1的最小值范围
nMax1 = 80&&比例1的最大值范围
nMin2 = 81
nMax2 = 100
nMin3 = 0
nMax3 = 30
nRang1 = 20 &&比例1
nRang2 = 10 &&比例2
?x_RandRang(nRang1,nMin1,nMax1,nRang2,nMin2,nMax2,nMin3,nMax3)

Function x_RandRang(nRang1,nMin1,nMax1,nRang2,nMin2,nMax2,nMin3,nMax3)
    nResult = 0
    lcResult = ""
    For i = 0 To 100
        nRang = Int((100 - 0 + 1) * Rand( ) + 0)
        Do Case
            Case nRang <= nRang1
                nResult = Int((nMax1 - nMin1 + 1) * Rand( ) + nMin1)
            Case Between(nRang,nRang1 + 1 ,nRang1 + nRang2)
                nResult = Int((nMax2 - nMin2 + 1) * Rand( ) + nMin2)
            Otherwise
                nResult = Int((nMax3 - nMin3 + 1) * Rand( ) + nMin3)
        Endcase
        lcResult = lcResult + Transform(nResult)+","
    Endfor
    Return lcResult
Endfunc

占比不是这样子的吧
试将结果按占比要求统计一下
我看每次结果也不会一样

***改成函数吧，代码如下:***
***win7,foxpro9.0下编译通过***
myrand(30，80，99，70，10，20)
Function myrand
parameter num1,num2,num3,percent1,percent2,percent3
local x,y,z,cstr
store 0 to x,y,z
cstr=''
do while .t.
n=int(rand()*100)
if n<=num1
    x=x+1
    if x<=percent1
        cstr=cstr+transform(n)+';'
        loop
    endif
    loop
endif
if n<=num2
    y=y+1
    if y<=percent2
        cstr=cstr+transform(n)+';'
        loop
    endif
    loop
endif
if n<=num3
    z=z+1
    if z<=percent3
        cstr=cstr+transform(n)+';'
        loop
    endif
    if x>percent1 and y>percent2 and z>percent3
        exit&&确保完成任务再退出
    else
         loop
    endif
endif
enddo
?cstr
endfunc
***myrand(30,80,99, 70,10,20)***
***正好100个数***

[此贴子已经被作者于2022-12-16 14:43编辑过]

如果搞彩票的这样干……

5楼坛友的方法不错，思路更清晰！

就是，既然可重复，直接随机抽够数就可以

最佳应用场景是某某公司的年会抽奖环节，所谓的内定抽奖。

***逻辑顺序重新优化一下，用case...endcase估计可以更加有效率***
***感兴趣的可以再优化一下***
myrand(30,80,99, 70,10,20)
function myrand
parameters num1,num2,num3,percent1,percent2,percent3
local x,y,z,cstr
store 0 to x,y,z
cstr=''
clea
do while .t.
n=int(rand()*100)
if x>=percent1 and y>=percent2 and z>=percent3
    exit&&确保完成任务再退出
else
    if n<=num1
        x=x+1
        if x<=percent1
            cstr=cstr+transform(n)+';'
            loop
        endif
           loop
    endif
    if n<=num2
        y=y+1
        if y<=percent2
            cstr=cstr+transform(n)+';'
            loop
        endif
        loop
    endif
    if n<=num3
        z=z+1
        if z<=percent3
            cstr=cstr+transform(n)+';'
            loop
        endif
        loop
    endif
endif
enddo
?cstr
ENDFUNC
***myrand(30,80,99, 70,10,20)***
***正好100个数***