1

乱数を生成し、その数を 2 つの別々のラベルに配置するプログラムを作成しました。最初のラベルの数値を 2 番目のラベルの数値よりも大きくするにはどうすればよいですか。

乱数を生成するための私のコードは次のとおりです。

Dim nRandom As Integer
Dim nRandom1 As Integer
Dim randomgenerator As New Random

'Displays random numbers from 1 to 10
nRandom = randomgenerator.Next(1, 11)
nRandom1 = randomgenerator.Next(1, 11)
'Displays random numbers on the first label
lblNum1.Text = Convert.ToString(nRandom)
'Displays random numbers on the second label
lblNum2.Text = Convert.ToString(nRandom1)

数値を減算する必要があり、負の回答が得られないようにしようとしているため、最初の数値を2番目の数値よりも大きくしたい

プログラムは、Windowsフォームアプリケーションのビジュアルベーシック上にあります

4

2 に答える 2

3

生成した 2 つの乱数を比較するだけです。nRandom1が より大きい場合は、およびにnRandom代入nRandom1します。lblNum1nRandomlblNum2

If nRandom >= nRandom1 Then
    'nRandom is greater, put it in first textbox
    lblNum1.Text = Convert.ToString(nRandom)
    lblNum2.Text = Convert.ToString(nRandom1)
Else
    'nRandom1 is greater, put it in first textbox
    lblNum1.Text = Convert.ToString(nRandom1)
    lblNum2.Text = Convert.ToString(nRandom)
End If

nRandom が nRandom1 と比較して常に大きいか等しいように数値を並べ替える 2 番目のアプローチ。

If nRandom1 > nRandom Then
    'Permute values
    Dim temp As Integer = nRandom
    nRandom = nRandom1
    nRandom1 = temp
End If
lblNum1.Text = Convert.ToString(nRandom)
lblNum2.Text = Convert.ToString(nRandom1)
于 2012-04-10T11:45:05.737 に答える
2

最初の数値を2番目に計算しnRandom1、他の数値を生成するためのリミッターとして使用します。minValue引数として指定するパラメータをすでに使用してい1ます。

nRandom1 = randomgenerator.Next(1, 11)
nRandom = randomgenerator.Next(nRandom1 + 1, 11)

minValuenRandom1は包括的であるため、調整する必要があります。最大値を超えないように調整する必要があります。

于 2012-04-10T11:43:30.987 に答える