可以使用系统自带的Rnd()方法进行实现，代码如下：

Private Sub Command_Click()

    Dim MyValue //定义一个随机数

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

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

End Sub

Private Sub Form_Load()

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

End Sub

int（rnd*100 + 1），rnd生成0~1之间的实数，rnd*100生成0~100之间的实数，rnd*100+1 生成1~101之间的实数，int使随机数向下取整，由于rnd生成的实数小于1，所以实际生成的是1~100之间的整数。