请问怎样在vb生成一个1到100的随机整数？

Question

如题所述

Answer 1

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

Answer 2

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

为什么输入a=int（rnd*100 + 1）有错误呢？

Answer 3

Private Sub Command1_Click()
    Dim MyValue
    MyValue = Int((100 * Rnd) + 1)
    Print MyValue
End Sub
Private Sub Form_Load()
    Randomize
End Sub

追问

那个，对不起，我是新手，有更简单一点的方法吗？

追答

这是·最基本的代码，可以不用
Randomize
但只能获得同一系列的随机数。

本回答被提问者采纳