关于VB的一个函数

我想问一下 怎么在 VB中编写一个程序 让他输出1到6的数字，还要是随机的，意思就是这样的 我点击一下COMMAND 按钮就出来一个 一到六的随机数啊！

这个要怎么实现啊！

Private Sub Command1_Click()
Dim a As Integer
Randomize
a = Int(Rnd * 6 + 1)
Print a
End Sub

么么的答案是好的了

我无语了

该补充的也让fth说了

前面加 randomize 能使每次执行事件时 产生的随机数不会跟前一次一样……

我的答案和么么的一样的，我来具体解释以下吧，

1、RND函数就是随机取0到1之间的任何数，拿他去乘6，可以得到0到6之间的任何数（不包括0和6），再加上1，可以得到1到7之间任何数（不包括1和7），

2、INT就是取整，就是去掉小数点后面的数，也就可以得到1、2、3、4、5、6，任何一个数字了，

Private Sub Command1_Click() Dim i As Integer i = Rnd * 6 Print i End Sub

dim x as integer

x=rnd()

print x;

end

在窗口中输出！

不太明白你的意思，加我的QQ:9986666@qq.tm 答案：110

一直交流一下，这个绝对可以帮的上你