OptionExplicit
FunctiongetRandom(totalAsInteger,maxAsInteger,numAsInteger)AsBoolean
'total是最后要得到的总和,max是最大不能超过的数,num是产生多少个随机数
DimranNumAsSingle'随机数
DimleftNumAsSingle'剩余数
DimconNumTotalAsSingle'确定的剩余数
DimiAsInteger
'判断条件是否满足
getRandom=True
Ifmax*num
'判断条件是否满足getRandom=TrueIfmax*num
立即窗口里面有没有数?还是什么都没有打出来?Ifmax*num