Visual Basic Генератор случайных чисел генерирует закономерные

[talisman-ydachi]

Public Class LotteryPickerForm

   Private Sub generateButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles generateButton.Click
      Dim pervajaLotereja As String = ThreeNumbers()
      Dim vtorajaLotereja As String = FourNumber()

      output3Label.Text = pervajaLotereja
      output4Label.Text = vtorajaLotereja
   End Sub
   Function ThreeNumbers() As String
      Dim randomObjekt As New Random
      Dim vozvrat As String = ""
      Dim chislo As Integer
      For stroka = 1 To 3
         chislo = randomObjekt.Next(10)
         vozvrat &= " " & String.Format("{0:D2}", chislo)
      Next

      Return vozvrat
   End Function

   Function FourNumber() As String
      Dim random1Objekt As New Random
      Dim vozvrat As String = ""
      Dim chislo As Integer
      For stroka = 1 To 4
         chislo = random1Objekt.Next(10)
         vozvrat &= " " & String.Format("{0:D2}", chislo)
      Next
      Return vozvrat
   End Function

End Class ' LotteryPickerForm

Странный какой-то генератор случайных чисел..Когда я устанавливаю точки останова он генерирует для двух лотерей разные числа..Потом я убираю точки останова и начинаю отладку заново...В итоге получаю одинаковые результаты...Отличается только последняя цифра...т.к. во второй лотерее четыре числа а в первой три...Что с этим счастьем делать?...Заранее спасибо...

что характерно:

если заменить

chislo = random1Objekt.Next(10) во второй функции на равносильное

chislo = 1+random1Objekt.Next(0,9)

генератор начинает работать в разнобой...то есть правильно...обьясните с Правильной точки зрения пожалуйста...
___________________________________ ___________________________________
ЗЫ..Упс....при такой замене упускается ноль...Блин....Народ помогите...

[grenles]

к сожалению. VB нет. Но так, из логики - надо генератор случайных чисел своими руками или писать, или "заряжать".
А так - я даже не понял, где тут случайность?

Я видел два решения.
1. Если не важно, - когда генерить последовательность, то в формулу можно вписать движения мышью. Двигаешь и генеришь. Нет - нет и последовательности, тогда 100 случайно будет.
что-то типа:

случайный1 = random (Коордмыши_по_горизонтали взять по модулю Заданное число) * random (10)

случайный2 = random (Коордмыши_по_вертикали взять по модулю Заданное число) * random (10)

2. ЗАпускать несколько таймеров с разными циклами и в зависимости от некоторого условия - брать число то одного таймера, то другого в рассмотрение.