小编use*_*552的帖子

所以基本上,我有这个函数应该在高数字和低数字之间生成两个随机整数,以在表格上形成一个点.我知道Random可以处理这个,但Random有一致性,而我需要数字在表单上完全随机.

例如,我生成的大多数点都出现在对角线上.这是我想要避免的.它应该遍布高低数字之间的形式.

这是我目前的功能:

Function GetNewLocation() As Point
    Randomize()
    Dim int1 As Integer = RandomNumber(6, 345)
    Randomize()
    Dim int2 As Integer = RandomNumber(35, 286)
    Return New Point(int1, int2)
End Function

Function RandomNumber(ByVal low As Integer, ByVal high As Integer) As Integer
    Randomize()
    Return New Random().Next(low, high)
End Function

如何在点不在对角线上的情况下获得真正的随机数生成？