vb生成分段随机数问题！！

来源：百度知道 编辑：UC知道 时间：2024/06/03 03:06:53
我想让VB随机生成201-208，303-318，414-418之中的一个数，怎么办到？

先取一个1-3的随机数，然后据此决定接下来是在哪一段中取，比如1就是取201-208之间

而获得一个范围在[M-N),N>M的随机整数r的通用算法：
r=M+int((N-M)*rnd)

比如201-208
r=201+int((208-201)*rnd())

private function a() as single
randomize
t=int(rnd * (3-1)+1) +1
if t=1 then a=int(rnd * (208-201)+1) +201:exit function
if t=2 then a=int(rnd * (318-303)+1)+303:exit function
if t=3 then a=int(rnd * (418-414)+1)+414:exit function
End Function
private sub command1_click()
msgbox "随机数是：" & a
end sub

支持历又