Public Function RandC(R_Count As Long, sum_i As Long) As String
'R_Count为随机数个数
'sum_i为限定的随机数和
Dim n1 As Long
Dim Rt As String
Dim i As Long
Dim Rt_sum As Long
For i = 1 To R_Count - 1
Randomize
n1 = Int(Rnd() * sum_i) + 1
If Rt_sum + n1
Public Function RandC(R_Count As Long, sum_i As Long) As String
'R_Count为随机数个数
'sum_i为限定的随机数和
Dim n1 As Long
Dim Rt As String
Dim i As Long
Dim Rt_sum As Long
For i = 1 To R_Count - 1
Randomize
n1 = Int(Rnd() * sum_i) + 1
If Rt_sum + n1
最新问答: 圆锥的母线长5cm,底面半径长3cm,那么它的侧面展开图的圆心角是多少? 若X小于2,试比较4X+1与9的大小 与心有关的成语如:问心无愧 (5x-18)+(5x)=82 如图,已知∠ACB=∠DBC,要使△ABC≌△DCB,需添加的一个条件是______;(只需填写一个你认为合适的条件) 已知27的2X次方除以9的X次方除以3的x次方=27,求X的值? 若关于x的方程x²+1/(x²-a)=2+a(a≥-1)成立,求未知数x. 已知在△abc中,sinA-cosA=7/5,求 那位高人可以帮我解释一下“用高锰酸钾滴定待测溶液时,高锰酸钾溶液能不能放到锥形瓶中” 高二历史选择题,急2文艺复兴时期,被人尊为近代绘画奠基人和"画圣"的人分别是A.达•芬奇和拉斐尔B.乔托和达•芬奇C.乔 世界上有涌潮的河流有哪些 你妈妈下班后很空闲吗?翻译 分数乘法计算题 不要脱式的 分数乘整数与分数乘分数综合着出 76道 匀速圆周运动的加速度怎么求 如图,△ABC中,CA=CB,CD,CE分别是角ACB记外角的平分线,AE⊥CE,垂直足为E. 8个数字中任意取3个数字的组合,重复的多少,不重复的多少? 浓氨水中家NaOH有什么现象? 票据大小写金额不一致时,该如何 (2012•锦州)如图是A、B、C三种物质的溶解度曲线.看图回答问题: 在边长6厘米的正方形中画一个最大的圆,求圆的周长和面积
相关问答: 范围