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

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

Rnd * 7
返回[0, 7)

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

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

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

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