Question

我创建了一个生成随机数的程序，并将数字放在两个单独的标签中。如何使第一个标签中的数字大于第二个标签中的数字。

以下是我生成随机数的代码：

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)

我想让第一个数字大于第二个数字，因为数字应该减去，我试图避免得到否定的答案

该程序在Windows窗体应用程序visual basic

上

Answer 1

只需比较您生成的两个随机数。如果nRandom1大于nRandom，请将nRandom1分配给lblNum1，将nRandom分配给lblNum2。

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。

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)

Answer 2

计算第一个数字秒，并使用nRandom1作为生成另一个的限制器。您已使用minValue参数指定1作为参数。

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

minValue具有包容性，因此我们需要对其进行调整，您应该对其进行调整以检查nRandom1是否超过最大值。

如何使第一个标签中的数字大于第二个标签

2 个答案: