Проблемка с рандом

[theal]

Подскажите,почему этот клик не получается рандом.То есть кликает постоянно на одну и ту же ссылку

Код: Выделить всё

Private Sub Command4_Click()
For Each TestLink In WebBrowser2.Document.links
    If InStr(1, TestLink.href, "at.ua/", vbTextCompare) Then
        List1.AddItem TestLink.innerText
        Text3 = Text3 + WebBrowser2.LocationURL
        TestLink.Click
        Exit For
   End If
   i = i + 3
    'Next TestLink

    cur = Int(10 * Rnd + i + 3)
    Text1.Text = cur
Next TestLink
End Sub

[Хакер]

Randomize вызывается?

[theal]

Дело в том что так клик выполняется

Код: Выделить всё

WebBrowser.Document.links(cur).Click

Но мне желательно что бы testlink это делал

[ger_kar]

Функция Rnd возвращает значение в диапазоне от 0 до 1 типа Single, содержащее случайное число (причем 1 не входит в этот диапазон, а 0 входит). Строго говоря, функция возвращает псевдослучайные числа. При каждом запуске программы, функция генерирует одну и ту же последовательность случайных чисел. Во избежания этого явления используйте инструкцию Randomize

Randomize [number] - Инициализирует генератор случайных чисел. Если этот оператор не поместить перед функцией Rnd, то при каждом запуске приложения будут генерироваться одни и те же случайные числа.

[Qwertiy]

Почему перед вызовом функции Rnd? Его надо только один раз использовать.

[iGrok]

В данном случае имеется в виду, что он обязательно должен быть вызван перед тем, как вызывать Rnd.
Хотя формулировка действительно неудачная.