1

12 ～ 15 などの数値または範囲を入力するテキスト ボックスがあり、乱数が生成されます。現在、2番目の数値が最初の数値よりも小さい場合、希望どおりに機能させることができますが、単一の数値のみがリストされている場合はそうではありません。

単語 (1) がない場合、または単語 (0) より小さい場合、rnum1 は rnum2 と等しくなります。（少ない場合はやります。）

Dim words As String() = TextBox2.Text.Split("-")
Dim rnum1 As String = words(0)
Dim rnum2 As String = words(1)
Dim RandomClass As New Random()
Dim RandomNumber As Integer

If rnum2 < rnum1 Then
rnum2 = rnum1

End If

RandomNumber = RandomClass.Next(rnum1, rnum2)
4

1 に答える 1

0

この行を変更

Dim rnum2 As String = words(1)

に

Dim rnum2 As String = IF(words.Length = 2, words(1), rnum1)

words 配列に 2 つの要素があるかどうかをチェックします。そうであれば - 配列の 2 番目の要素を使用し、それ以外の場合は最初の要素を再割り当てします。

考えてみれば、これはこれでも達成できます：

Dim rnum2 As String = words(words.Length - 1)

配列に 2 つの要素がある場合は、words(1) が割り当てられ、それ以外の場合は words(0) が割り当てられます。

于 2013-09-23T02:49:29.467 に答える