vb产生随机数1至100

VB生成1-100之间的随机整数，可以使用系统自带的Rnd()方法进行实现，代码如下：

Private Sub Command_Click()

Dim MyValue //定义一个随机数

MyValue = Int((100 * Rnd) + 1) //rnd()函数生成随机数

Print MyValue //打印出这个随机数

End Sub

Private Sub Form_Load()

Randomize //初始化随机数生成器

End Sub