Question

有人可以指出这段代码有什么问题。它没有从五个输入数字给我正确的最大值和最小值。（使用IF ..）

    Dim arr() As Integer = {1, 2, 3, 4, 5}
    Dim max As Integer = arr(0)
    Dim min As Integer = arr(0)
    arr(0) = InputBox("Enter 1st Value")
    arr(1) = InputBox("Enter 2nd Value")
    arr(2) = InputBox("Enter 3rd Value")
    arr(3) = InputBox("Enter 4th Value")
    arr(4) = InputBox("Enter 5th Value")
    For i As Integer = 1 To arr.Length - 1
        If arr(i) > max Then
            max = arr(i)
        End If
        If arr(i) < min Then
            min = arr(i)
        End If
        TextBox1.Text = max
        TextBox2.Text = min
    Next

Answer 1

首先，您可能希望在输入数组的第一个元素后设置min和max 。

例如，您当前将min设置为1，因为在您开始数据输入之前，这是数组中的第一个元素。

如果您输入五个值均大于一百的值，min 将保留为<{em>>，尽管您没有输入它。

你可能正在寻找类似的东西：

1

显示更大和更小的值

1 个答案: