0

所以我正在尝试制作一个使用随机词的搜索机器人。对于一次要执行的搜索次数，我使用最小为 2 和最大为 30 的增量值。

我在想这样的事情，但它似乎也不会那么好，因为它不会真正生成一个更好的随机字符串：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim SE As String
    SE = NumericUpDown1.Value
    Select Case SE
        Case "2"

    End Select
End Sub

如果有人可以帮助我，将不胜感激。

4

1 回答 1

1

您可以使用Random该类及其方法Next来创建随机数。

Dim rnd As New Random()
Dim SE As String = rnd.Next(2, 31).ToString()

请注意，随机数生成从种子值开始。如果重复使用相同的种子，则会生成相同的数字序列。

因此，如果要使用循环，则不应在循环中创建随机实例，而应在循环之外创建。

但是，我不确定您要创建什么样的单词。我怀疑您是否想要“2”和“30”之间的数字字符串，即使您的代码建议它也是如此。

根据您的评论更新

2 和 30 是一次要进行多少次搜索，我想从 60-70 个单词列表中随机化单词

所以我假设你想要一个随机数（在 2-30 之间）来自字符串列表的随机词：

Dim words = {"word 1", "word 2", "word 3", ".....", "word 60"}
Dim rnd As New Random()
Dim howMany As Int32 = rnd.Next(2, 31)
Dim randomWords As New List(Of String)
For i As Int32 = 1 To howMany
    Dim nextRandomIndex = rnd.Next(0, words.Count)
    randomWords.Add(words(nextRandomIndex))
Next
于 2013-02-25T22:48:59.657 回答