Question

所以我试图制作一个使用随机单词的搜索机器人。我使用的是一个最小值为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

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

Answer 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

需要帮助为搜索机器人VB 2010生成随机单词

1 个答案: