匿名用户

1级

2014-09-17 回答

Option Explicit

Function getRandom(total As Integer, max As Integer, num As Integer) As Boolean

'total是最后要得到的总和,max是最大不能超过的数,num是产生多少个随机数

Dim ranNum As Single '随机数

Dim leftNum As Single '剩余数

Dim conNumTotal As Single '确定的剩余数

Dim i As Integer

'判断条件是否满足

getRandom = True

If max * num < total Then

'根本就不可能满足条件,直接退出

getRandom = False

Exit Function

End If

conNumTotal = 0

For i = 1 To num - 1 Step 1

DoEvents

Randomize '随机化

'很显然地所有的ranNum都满足小于max的条件

ranNum = Rnd() * max '产生随机数

'判断当前数据的合理性

leftNum = total - conNumTotal - ranNum

If max * (num - i) < leftNum Then

'无法满足基本要求,退回序列

i = i - 1

Else

'满足要求,继续

conNumTotal = conNumTotal + ranNum

Debug.Print ranNum

End If

'自行处理产生的ranNum

Next i

'最后一个随机数

ranNum = total - conNumTotal

Debug.Print ranNum

debug.print "over"

'由于最后一个数

End Function

Sub a()

getRandom 200, 11, 20

End Sub

这样可以么?

随机数相加等于固定值_excel随机函数出来的数相加等于一个想要的固定值相关推荐

  1. 代码随想录算法训练营15期 Day 7 | 454.四数相加II 、 383. 赎金信 、15. 三数之和 、18. 四数之和

    昨天看了一下别的东西,导致昨天没有练习打卡,今天补上昨天的学习知识. 454.四数相加II 建议:本题是 使用map 巧妙解决的问题,好好体会一下 哈希法 如何提高程序执行效率,降低时间复杂度,当然使 ...

  2. 代码随想录算法训练营第七天| 哈希表理论基础 ,454.四数相加II, 383. 赎金信, 15. 三数之和, 18. 四数之和

    代码随想录算法训练营第七天| 哈希表理论基础 ,454.四数相加II, 383. 赎金信, 15. 三数之和, 18. 四数之和 454.四数相加II 建议:本题是 使用map 巧妙解决的问题,好好体 ...

  3. 代码随想录算法训练营day07| 454.四数相加II、383. 赎金信、15. 三数之和、18. 四数之和

    Leetcode 454.四数相加II 题目链接 思路:求四数相加之和,将四数两两相加,判断两两相加的数是否和为0 定义一个map,key放两数之和,value放两数之和出现的次数 两层for循环将前 ...

  4. 查找一个数等于一组数中某些数相加的和

    实现需求: 查找一个数等于一组数中哪些数相加的和 例如: 从1, 2, 3, 4, 5, 6, 7 中找出和为5的数, 即2, 3 public class AccumulationUtil {pri ...

  5. 代码随想录算法训练营第07天 | LeetCode 454.四数相加2,383. 赎金信,15. 三数之和,18. 四数之和,总结

    LeetCode [454. 四数相加 II] 题目:给你四个整数数组 nums1.nums2.nums3 和 nums4 ,数组长度都是 n ,请你计算有多少个元组 (i, j, k, l) 能满足 ...

  6. (补)算法训练第七天|力扣454.四数相加II ,383. 赎金信,15. 三数之和,18. 四数之和

    代码随想录算法训练营第七天|力扣454.四数相加II ,383. 赎金信,15. 三数之和,18. 四数之和 454.四数相加II 题目链接:四数相加II 参考:https://programmerc ...

  7. 代码随想录算法训练营第七天| 454.四数相加II 、383. 赎金信、15. 三数之和、18. 四数之和

    454. 四数相加 II 题目: 给你四个整数数组 nums1.nums2.nums3 和 nums4 ,数组长度都是 n ,请你计算有多少个元组 (i, j, k, l) 能满足: 0 <= ...

  8. 计算机组成原理两数相加指令,计算机组成原理复习题

    27. 一个16K×32位的存储器,其地址线和数据线的总和是 . A.48 B.46 C.36 答案:B 28.由于磁盘上的内部同心圆小于外部同心圆,则对其所存储的数据量而言, . A.内部同心圆大于 ...

  9. python0.1+0.2不等于0.3_为什么0.1 + 0.2不等于0.3?

    原标题:为什么0.1 + 0.2不等于0.3? 0.1 + 0.2不等于0.3这是一个普遍的问题,例如在JS控制台输入将得到0.30000000000000004 在python的控制台也是输出这个数 ...

最新文章

  1. ubuntu安装之后的最初几天一路杂记
  2. 图像检测技术的研究现状
  3. c语言注释的开始标记符和结束标记符分别为,C语言程序设计填空题
  4. stata 导出 相关系数表_Stata: 空间权重矩阵的构建
  5. 【Redis】9.10.Redis持久化方式之RDBAOFAOF和RDB区别场景分析
  6. 合并多个文本文件中的内容到一个文件中
  7. access 查找工龄大于30_面试前必知必会的二分查找及其变种
  8. [BZOJ1026] [SCOI2009] windy数 (数位dp)
  9. [原创] Wireshark工具培训
  10. Anaconda创建、激活、退出、删除虚拟环境
  11. 一个较好的基础的数据库连接池知识
  12. 【内核】进程切换 switch_to 与 __switch_to
  13. JAVA继承类初始化顺序
  14. 中国石油大学《画法几何》在线考试
  15. Scratch编程(八)扩展模块:文字朗读模块
  16. [乐意黎原创]PHP 老司机指南
  17. QT学习笔记(六)——①进度条可拖动、点击②有暂停按钮 的视频播放器
  18. HTML 界面画图工具
  19. vue支付项目-APP支付宝支付功能
  20. 采购订单文本复制规则

热门文章

  1. 比亚迪汉鸿蒙系统测评_深度:预判比亚迪汉EV电驱动系统技术状态
  2. python详细安装教程-python安装教程 Pycharm安装详细教程
  3. python从入门到精通需要多久-Python从入门到精通只需要一个月就够了!
  4. 学python可以做什么职业-学了Python,就能拿下这 7 个高薪的未来职业
  5. 简析三星新专利,语音识别技术的新方法
  6. 第F题 真约束之和(通解)古希腊数学家毕达哥拉斯在自然数研究中发现,220的所有真约数(即不是自身的约数)之和为:  1+2+4+5+10+11+20+22+44+55+110=284
  7. 计算机语言的比较英文论文,科学网—撰写高质量英文科技论文的心态、布局、程序和方法 - 岳中琦的博文...
  8. jQuery 工具方法 (全)
  9. yarn在vscode里启动报错
  10. access计算机二级改工号,Access新手来看:如何更改表/窗体/报表...得名字