Int((upperbound - lowerbound + 1) Rnd + lowerbound)
upperbound是从右边框中得到的数
lowerbound是从左边框中得到的数(或是先把两数得到,再分个大小)
Rnd 函数
返回一个包含随机数值的 Single。
语法原型
Rnd[(number)]
可选的 number 参数是 Single 或任何有效的数值表达式。
返回值
如果 number 的值是 Rnd 生成
小于 0 每次都使用 number 作为随机数种子得到的相同结果。
大于 0 序列中的下一个随机数。
等于 0 最近生成的数。
省略 序列中的下一个随机数。
说明
Rnd 函数返回小于 1 但大于或等于 0 的值。
number 的值决定了 Rnd 生成随机数的方式。
对最初给定的种子都会生成相同的数列,因为每一次调用 Rnd 函数都用数列中的前一个数作为下一个数的种子。
在调用 Rnd 之前,先使用无参数的 Randomize 语句初始化随机数生成器,该生成器具有根据系统计时器得到的种子。
为了生成某个范围内的随机整数,可使用以下公式:
Int((upperbound - lowerbound + 1) Rnd + lowerbound)
rnd
函数
返回一个包含随机数值的
single。
语法
rnd[(number)]
可选的
number
参数是
single
或任何有效的数值表达式。
返回值
如果
number
的值是
rnd
生成
小于
0
每次都使用
number
作为随机数种子得到的相同结果。
大于
0
序列中的下一个随机数。
等于
0
最近生成的数。
省略
序列中的下一个随机数。
说明
rnd
函数返回小于
1
但大于或等于
0
的值。
number
的值决定了
rnd
生成随机数的方式。
对最初给定的种子都会生成相同的数列,因为每一次调用
rnd
函数都用数列中的前一个数作为下一个数的种子。
在调用
rnd
之前,先使用无参数的
randomize
语句初始化随机数生成器,该生成器具有根据系统计时器得到的种子。
为了生成某个范围内的随机整数,可使用以下公式:
int((upperbound
-
lowerbound
+
1)
rnd
+
lowerbound)
这里,upperbound
是随机数范围的上限,而
lowerbound
则是随机数范围的下限。
注意
若想得到重复的随机数序列,在使用具有数值参数的
randomize
之前直接调用具有负参数值的
rnd。使用具有同样
number
值的
randomize
是不会得到重复的随机数序列的。
rnd()函数返回大于等于0小于1的数,要得到3位数也就是数字在100-999之间,可以这样得到:
int(rnd()900 + 100)
rnd()900可以得到0-899的数,加上100就得到100-999之间的数了
公式:
rnd()(数字上限-数字下限+1) + 数字下限
另外在使用rnd前用randomize初始化随机数种子就可以避免每次输出相同值
代码及注释如下:
Private Sub Command1_Click()'点击命令按钮执行程序
Randomize'初始化随机数发生器
x = Round((Rnd() 9), 0)'先利用随机数得到0-1区间的小数,然后乘以9,在对这个数进行四舍五入后,赋值给x
Print x'窗体打印x
End Sub
Private Sub cmdRanAngle_Click()
Dim dblAngle As double
Dim dblSin As double
'Randomize
dblAngle = dbl((90ran)+60)
dblSin = sin(dblAngle)
lblScreamCaption = dblAngle
lblAnswercaption = dblSin
End sub
最简单的方法,楼上都有错。。。。。
希望楼主采纳,有VB问题希望可以探讨,QQ827170254
你的问题说明的不够详细,到底是下面哪个区间呢?
[60,100],[60,100),(60,100],(60,100)
也没说明是要整数还是小数,要知道上述两条决定了vb表达式的写法。
生成随机小数利用rnd函数
rnd能够随机生成
[0,1俯发碘菏鄢孤碉酞冬喀)区间的小数
例如:生成[60,100)区间的小数的表示方法是
rnd40+60
生成[60,100]区间的整数的表示方法是
int(rnd41+60),其中int是取整函数,如int(35)等于3,没有四舍五入单纯取整数位。
可以的,先设定TEXTBOx的属性值,确定范围,
随机数产生用 Rnd函数。
比如:Int(Rnd整数n) ;产生0,1,2,3,。。。。,n-1中的随机数。
Rnd产生的是0~1的随机数。、
例如:int(Rnd(n-m+1)+m);产生的是在区间m,n内的数。
1、设置随机产生[n,m]之间的随机数(m>n),最小的随机数是n,然后在n的基础上加上m-n的差值内的随机数就可以了;
2、随机数代码是int(rnd(m-n))+n
3、产生两个数之间的随机数闭区间示例(以产生一个[10,90]之间的随机数为例):
private sub command1_click()
dim n as integer
randomize
n = int(rnd 90) + 10
print n;
end sub
以上就是关于vb如何随机抽数比如在100至200之间随机选择一个整数显示在下方。求详细解答,谢谢!全部的内容,包括:vb如何随机抽数比如在100至200之间随机选择一个整数显示在下方。求详细解答,谢谢!、vb如何运用随机数、vb中如何取得随机3位数等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)