易截截图软件、单文件、免安装、纯绿色、仅160KB

关于VB中的 rnd（）函数结果


rnd 的结果是 区间[ 0，1）  ，可以等于0， 而不会等于1， 对么？？

有人说可以等于0，有的说不行
Rnd 函数返回小于 1 但大于或等于 0 的值
要等于0就取整。
引用
rnd 的结果是 区间[ 0，1）  ，可以等于0， 而不会等于1， 对么？？

有人说可以等于0，有的说不行

[0,1)正确!

'原则上可以为0 , 但几率很小
Private Sub Command1_Click()
For I = 1 To 10000
Randomize
Debug.Print Rnd
Next
End Sub
'输出几个0?
引用
引用楼主 april_fool 的回复:
rnd 的结果是 区间[ 0，1）  ，可以等于0， 而不会等于1， 对么？？

有人说可以等于0，有的说不行

[0,1)正确!

这种问题也要动用代码解决啊
服了U
引用
'原则上可以为0 , 但几率很小
Private Sub Command1_Click()
For I = 1 To 10000
Randomize
Debug.Print Rnd
Next
End Sub
'输出几个0?

这是定义，毋庸质疑
rnd[0 1)只能取到0或0到1的数不能等于1
随机取了几个亿的数字，没有发现等于0和等于1的情况出现。
0到1之间的小数是无穷多个 几亿个不出现很正常
√
引用
0到1之间的小数是无穷多个 几亿个不出现很正常

[0,1)
其实就是一个浮点数去掉阶码。
�


相关问答：

vb如何调用Illustrator（此前Illustrator未启动）？

请教一下：我用vb写了一个调用Illustrator的测试程序，代码很简单：Private Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......

VB修改注册表

用VB怎么只针对windows自带的文件的右键添加菜单 如（.txt .doc)
这个是只针对以这两个为扩展名的文件操作
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\txtfile\shell\[随便起名]\command]
@= ......

熟悉VB的进来，有项目


有没有杭州的朋友，熟悉VB的，有兴趣做的话留下联系方式
VB6 OR VB.NET?
可惜不在杭州,遠程可否?

兄台联系方式呢

我也联系一下，不过在宁波

可惜我也不在杭州

北京的行不？

我在苏州， ......

VB ini文件写入 读取 - VB / 基础类

看了一些VB ini文件写入读取的方法 但是还是不知道怎么写，上面写了很长 很多，但是我不知道怎么用，我想问一下怎样写才能实现在TEXT1中写字，然后点Command1提交，然后TEXT1里面的数字就写进INI里面[Section]的Key1 ......
© 2009 ej38.com All Rights Reserved. 关于E健网 | 联系我们 | 站点地图 | 赣ICP备09004571号