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 に答える