我使用Random.next(),为什么每次返回值都一样?
我是这样使用的:
For j=1 to 10
lstData.Items.Add(GetRandomInteger(10, 20))
Next
'返回随机整数(有问题)
Public Function GetRandomInteger(ByRef intLBoundValue As Integer, ByRef intUBoundValue As Integer) As Integer
Dim objRandom As New Random
Try
Return objRandom.Next(intLBoundValue, intUBoundValue + 1)
Catch ex As Exception
Return 0
End Try
objRandom = Nothing
End Function
几hu每次返回都一样(指循环时),请问如何解决?谢谢!