求助，这段Int(Rnd() * 3 + 1) - 2的详细解释？

翻滚吧炒鸡蛋

在书本第215页，即5.4.1节中那个鼠标移动例子中， l = Int(Rnd() * 10 + 125) * (Int(Rnd() * 3 + 1) - 2) 这个里面 Int(Rnd() * 3 + 1) - 2应该是起向左移动的作用，但是为什么要写成 Int(Rnd() * 3 + 1) - 2呢（最主要是里面的数字有什么用，不可以用其他数字代替吗）？
原文：
Private Sub cmd_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Dim l As Integer, t As Integer
    l = Int(Rnd() * 10 + 125) * (Int(Rnd() * 3 + 1) - 2)
    t = Int(Rnd() * 10 + 30) * (Int(Rnd() * 3 + 1) - 2)
    cmd.Top = cmd.Top + t
    cmd.Left = cmd.Left + l
End Sub

hehex

这个是关于VB 随机函数取随机整数的使用了。
书上主要是讲了Mouse_move 事件的使用，没有深入讲解随机函数取整数的知识。所以就不容易看懂这段代码了。
俺来讲一下随机函数Rnd()
Rnd() 是产生一个0-1 之间的随机浮点数，或者说就是一个大于0 小于1 的小数，这样好理解一点。
而在例子中产生的坐标要求是产生随机整数，这里有一个产生VB 随机函数产生随机整数的公式：

即是: Int((上限-下限+1)*Rnd()+下限)
举个例子：比如说你要产生一个1-5 的随机整数，那么这个随机函数应该怎么写呢？
很明显是： Int((5-1+1)*Rnd()+1)
这里上限是5，下限是1 用这个表达式就可以产生1-5 之间的随机整数了。
如果这么看Int(5*Rnd()) 不加那个1 ，这说明产生的可能是0-4 之间的整数，如果不能推导出来请看上面的预备知识。

回到你最初的问题 首先看第一个式子： Int(Rnd() * 10 + 125)
根据前面的介绍，可以很轻松的分析出Int(Rnd()*10) 这个式子产生0-9 的随机整数，再加上125呢？
很明显Int(Rnd() * 10 + 125) 产生的是（125+0）到(125+9) 就是125-134 之间的整数。

再看看第二个式子： Int(Rnd() * 3 + 1) - 2
这个比较有意思，前面一部分： Int(Rnd() * 3 + 1) 是产生1-4的随机整数
然后再用结果减去2 那么将是 -1 到2 的随机整数。

其实关于随机函数的使用，甚至可以单开一个章节，书中在这里只是单单应用一下，没有展开深入探讨。

翻滚吧炒鸡蛋

hehex 发表于 2013-12-21 13:11
这个是关于VB 随机函数取随机整数的使用了。
书上主要是讲了Mouse_move 事件的使用，没有深入讲解随机函数 ...

3Q.理解了~~！！

renahu

前面一部分： Int(Rnd() * 3 + 1) 是产生1-4的随机整数  ，这里是不是应该是产生1-3的随机整数？

hehex

renahu 发表于 2015-9-8 19:35
前面一部分： Int(Rnd() * 3 + 1) 是产生1-4的随机整数  ，这里是不是应该是产生1-3的随机整数？

是的，当时写的时候看错了。应该是1-3 的随机数，再减去2 是-2 到 1 的整数。

er_shi

hehex 发表于 2015-12-2 12:54
是的，当时写的时候看错了。应该是1-3 的随机数，再减去2 是-2 到 1 的整数。

1-2不是-1吗,怎么还-2了

oceanwinder

Rnd 函数返回小于 1 但大于或等于 0 的值。