如何从 15 个数字中找到最大的数字?

Question

对于一篇计算机科学作业，我需要随机生成 15 个数字，将它们相互比较，然后输出最大的数字。但是当我尝试将其与最大变量进行比较时，它并非始终都是 100% 正确的。有人可以帮助我获得 100% 的准确性。

Dim largest As Integer
Dim random As New Random()
Dim a, b, c, d, e, f, g, h, i, j, k, l, m, n, o As Integer
Console.WriteLine("This program will generate 15 numbers and print the largest of them.")

a = random.Next(0, 100)
Console.WriteLine(a)
b = random.Next(0, 100)
Console.WriteLine(b)
c = random.Next(0, 100)
Console.WriteLine(c)
d = random.Next(0, 100)
Console.WriteLine(d)
e = random.Next(0, 100)
Console.WriteLine(e)
f = random.Next(0, 100)
Console.WriteLine(f)
g = random.Next(0, 100)
Console.WriteLine(g)
h = random.Next(0, 100)
Console.WriteLine(h)
i = random.Next(0, 100)
Console.WriteLine(i)
j = random.Next(0, 100)
Console.WriteLine(j)
k = random.Next(0, 100)
Console.WriteLine(k)
l = random.Next(0, 100)
Console.WriteLine(l)
m = random.Next(0, 100)
Console.WriteLine(m)
n = random.Next(0, 100)
Console.WriteLine(n)
o = random.Next(0, 100)
Console.WriteLine(o)
If a > b Then
largest = a
ElseIf b > largest Then
largest = b
ElseIf c > largest Then
largest = c
ElseIf d > largest Then
largest = d
End If
Console.WriteLine("The biggest number is " & largest)

Console.ReadLine()

Answer 1

这是一种更简单的方法来执行您正在做的事情

Dim rand = New Random()
Dim numbers = Enumerable.Range(0, 15).Select(Function(i) rand.Next(0, 100))
For Each number In numbers
Console.WriteLine(number)
Next
Console.WriteLine($"The biggest number is {numbers.Max()}")

它使用 IEnumerable(Of Integer( 来保存值，而不是单个变量。它首先使用 Enumerable.Range(( 创建值 1 到 15(这些并不重要(，然后使用 Enumerable.Select(( 将它们转换为随机值。然后，它使用 Enumerable.Max 获取最大值。

这也可以解决问题，但是它不使用内置的 Enumerable 函数，这可能会更容易将其作为您自己的家庭作业传递。

Dim rand = New Random()
Dim max = Integer.MinValue
For i = 1 To 15
Dim number = rand.Next(0, 100)
If max < number Then max = number ' this is probably what the teacher is looking for!
Console.WriteLine(number)
Next
Console.WriteLine($"The biggest number is {max}")