mdsk.net
当前位置:首页 >> vB 随机产生一个范围的数 >>

vB 随机产生一个范围的数

产生某闭区间内的整数随机数的公式为:int((上限-下限+1)*rnd)+下限.

没要求范围更好呀:private sub form_click() dim a as integer, b as integer, c as integer form1.autoredraw = true randomize a = int(rnd * 100 + 1) b = int(rnd * 100 + 1) c = int(rnd * 100 + 1) print "随机产生的三个整数是:"; a; b; cend sub已经运行过.

不知道vb产生随机数是用什么函数不知道是用rand不,我就说下我的思路哈你看看可以不产生一个随机数,取这个随机数的最后两位,最后一位和四求余,这样就产生一个0到3的随机数然后把刚才取的两位的随机数的前面那一位和2求余,判断一下,如果是0就是负号,如果是1就是正号……这样一组合就符合你要的那个区间了……

1、vb中产生[a,b]区间的随机数的公式是:Int((b- a+ 1) * Rnd + a)2、根据以上公式得出,根本无法以公式法生成(a,b](半开区间)范围内的随机数.3、Rnd 函数返回小于 1 但大于或等于 0 的值.4、int是取整函数.

返回一个包含随机数值的 Single.语法 Rnd[(number)] 可选的 number 参数是 Single 或任何有效的数值表达式.返回值 如果 number 的值是 Rnd 生成 小于 0 每次都使用 number 作为随机数种子得到的相同结果. 大于 0 序列中的下一个随机数.

可以先产生一个随机数来选择范围 然后根据这个范围来选择随机数范围再产生一个随机数.比如 Option ExplicitPrivate Sub Command1_Click() Dim x, y Randomize x = Int(Rnd * 3)'先产生一个随机数 随机选择一个范围 Select Case x Case 0 y = Int(Rnd * 10) + 48 Case 1 y = Int(Rnd * 25) + 65 Case 2 y = Int(Rnd * 25) + 97 End Select Print yEnd Sub

一个指定范围的随机数 ,A-B范围,则 rnd*(B-A)+A,如果是整数int(rnd*(B-A))+A添加的列表框可以使用 List1.AddItem求平均值 for i=0 to List1.ListCount-1 sum=sum+val(List1.List (List1.ListIndex)) next i ave=sum/List1.ListCount

为了生成某个范围内的随机整数,可使用以下公式: Int((上界 - 下界 + 1) * Rnd + 下界) 公式中的上界就是你所要生成这个随机范围的最大值,下界就是你所要生成这个随机范围的最小值.

private sub command1_click() msgbox int(7 * rnd + 1) end sub 这个就是产生一个1-7的随机整数,如果你想避免每次程序运行的数都一样,可以在前面加上randomize ,如果不要整数就把int去掉就可以了

很简单的 先建一个TEXTBOX 代码如下:Private Sub Form_Click() Dim x% x = Int(Rnd * 6 + 1) Text1 = Val(x) End Sub

网站首页 | 网站地图
All rights reserved Powered by www.mdsk.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com