如果您想要做的是生成一个随机数,您可以使用Random和Next方法:
Next(Int32,Int32)重载返回从minValue到maxValue的随机整数 - 1.但是,如果maxValue等于minValue,则该方法返回minValue。
以下是一些示例代码:
Dim r As Random = New Random
'The values 1, 2 and 3 are possible.
Console.WriteLine(r.Next(1, 4))
Console.WriteLine(r.Next(1, 4))
Console.WriteLine(r.Next(1, 4))