要用VB中的rnd函数产生一个小于等于6的数怎么办呢?请各位大侠帮帮我这...

发布网友发布时间：2024-10-12 11:25

共4个回答

热心网友时间：2024-10-14 02:41

show
'初始化
randomize
'产生[0,6)之间的随机数
print rnd*6

热心网友时间：2024-10-14 02:44

rnd*6
如果要负数，
dim a
a=-rnd*2
if(rnd>0.1)then
if(a<-1)then
a=1/(a+1)
end if
else
a=rnd*6
end if
msgbox(print) a

热心网友时间：2024-10-14 02:41

rnd * 6 rnd 返回的是0-1之间的数，你 *6就可以了

热心网友时间：2024-10-14 02:44

Rnd
返回[0, 1)，即大于等于0，且小于1的数
----------

Rnd * 7
返回[0, 7)

___________
Fix(Rnd * 7)
返回0,1,2,3,4,5,6

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com