private funtion 随机整数(下限 as integer,上限 as integer）as integer
    if 下限>上限 then
        msgbox "参数设置错误！"
        exit function
    endif
    随机整数=rnd*(上限-下限+1)+下限
end function

然后，

你要的数=随机整数（20，40）

a=19   b=40
int ((b-a)* rnd + a) +1