ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 2646|回复: 1

[转帖] vb随机函数用法和实例

[复制链接]

TA的精华主题

TA的得分主题

发表于 2011-12-1 14:24 | 显示全部楼层 |阅读模式
第一,vb随机函数介绍
  Rnd 函数是vb随机函数。
  Rnd 函数的作用是返回小于 1 但大于或等于 0 的值。比如0.871445835、0.056236863这样的随机小数。
第二,vb随机函数实例介绍
1.比如要在A1单元格生成一个这样的随机小数,可以这样写代码:
Sub 随机数()
   [A1] = Rnd
End Sub

2.又比如要生成20以内的随机数,可以这样写:
Sub 随机数()
   [A1] = Int(Rnd * 20)
End Sub

  总结:RND是vb随机函数,可以取到的数在0~1之间不包括1, =INT(RND*10)可以是0~9的整数。
3. 如何使用vb随机函数产生两个数字之间的任意数字?比如生成28到95之间的随机整数。可以这样写:
Sub 随机数()
   [A1] = Int(67 * Rnd + 28)
End Sub

或者是:
Sub 随机数()
   [A1] = Int(Rnd * (67 + 1) + 28)
End Sub

  vb随机函数产生两个数字之间的任意数字可以套用这样的格式来写:
  rnd *(大数-小数+1)+小数  或  (大数-小数)* rnd+小数。

TA的精华主题

TA的得分主题

发表于 2011-12-1 14:37 | 显示全部楼层
我要一个二维的随机数数组咋弄?
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-12-29 18:03 , Processed in 0.030130 second(s), 8 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表