VB.NET代码求助：移除数组首个最大值和末尾最小值出错

给定一个整数数组，需求是移除其中的第一个最大值和最后一个最小值，但编写的VB代码编译报错，以下是原代码、编译错误信息及问题排查：

原代码 #

Imports System

Public Module Program
    Public Sub Main(args() As string)
        Dim numbers = New Integer() {1, 2, 4, 8, 5, 4, 9, 63, 2, 7, 0, 5, 4, 2}
        
    Console.WriteLine("Initial Array {0}" + target)
    
    Dim targetSize As Integer = numbers.Length - 2
    Dim target(targetSize) As Integer
    
    Dim max = numbers(0)
    Dim maxIndex = 0
    
    Dim min = numbers(0)
    Dim minIndex = 0
    
    For index = 0 To numbers.Length
      If max < numbers(index) Then 
        maxIndex = index
        Stop
      End If
    Exit For
    
    For index = 0 To numbers.Length
      If min > numbers(index) Then 
          minIndex = index
      End If
    Exit For
    
    Dim targetIndex As Integer = 0
    
    For index = 0 To numbers.Length
      If (index <> minIndex Or index <> maxIndex) Then
        target(targetIndex) = numbers(index)
        targetIndex = targetIndex + 1
      End If
    Exit For
    Console.WriteLine("Target Array {0}" + target)
    End Sub
End Module

编译错误信息 #

Visual Basic.Net Compiler version 0.0.0.5943 (Mono 4.0.1 - tarball)
Copyright (C) 2004-2010 Rolf Bjarne Kvinge. All rights reserved.

/runtime/vb/3yn8kpgq9_3ynmpk553/HelloWorld.vb (40,9) : error VBNC30084: CHANGEME
/runtime/vb/3yn8kpgq9_3ynmpk553/HelloWorld.vb (40,9) : error VBNC30084: CHANGEME
/runtime/vb/3yn8kpgq9_3ynmpk553/HelloWorld.vb (40,9) : error VBNC30084: CHANGEME
There were 3 errors and 0 warnings.
Compilation took 00:00:00.4196520

Error: Command failed: timeout 7 vbnc HelloWorld.vb

问题排查与修复点 #

• 变量提前引用+格式化错误：Console.WriteLine("Initial Array {0}" + target)中target未定义就使用，且直接拼接数组会输出类型名而非元素。应先输出原数组，用String.Join拼接元素。
• 循环范围越界：VB中For index = 0 To numbers.Length会访问numbers(numbers.Length)，超出数组索引范围（数组索引为0到Length-1），需改为To numbers.Length - 1。
• 循环逻辑失效：每个For循环后直接加Exit For，导致循环仅执行一次，无法遍历整个数组。需删除多余的Exit For，让循环完整执行。
• 最大值查找逻辑错误：找到更大值时用Stop暂停程序，而非更新max的值，应改为max = numbers(index)来更新当前最大值。
• 最后一个最小值查找逻辑错误：当前代码仅记录第一个最小值的索引，需修改为遍历过程中遇到等于当前最小值的元素时也更新索引，确保得到最后一个最小值的位置。
• 元素筛选条件错误：If (index <> minIndex Or index <> maxIndex)逻辑错误，应使用And，即当索引既不是最小值索引也不是最大值索引时，才将元素加入目标数组。
• 数组输出错误：Console.WriteLine("Target Array {0}" + target)同样需用String.Join拼接目标数组元素后输出。

修复后的代码 #

Imports System

Public Module Program
    Public Sub Main(args() As String)
        Dim numbers = New Integer() {1, 2, 4, 8, 5, 4, 9, 63, 2, 7, 0, 5, 4, 2}
        
        ' 输出原数组
        Console.WriteLine("Initial Array: {0}", String.Join(", ", numbers))
        
        Dim targetSize As Integer = numbers.Length - 2
        Dim target(targetSize) As Integer
        
        ' 查找第一个最大值的索引
        Dim max = numbers(0)
        Dim maxIndex = 0
        For index = 0 To numbers.Length - 1
            If max < numbers(index) Then
                max = numbers(index)
                maxIndex = index
            End If
        Next
        
        ' 查找最后一个最小值的索引
        Dim min = numbers(0)
        Dim minIndex = 0
        For index = 0 To numbers.Length - 1
            If min >= numbers(index) Then ' 等于时也更新，确保取最后一个最小值
                min = numbers(index)
                minIndex = index
            End If
        Next
        
        ' 构建目标数组
        Dim targetIndex As Integer = 0
        For index = 0 To numbers.Length - 1
            If index <> minIndex And index <> maxIndex Then
                target(targetIndex) = numbers(index)
                targetIndex += 1
            End If
        Next
        
        ' 输出目标数组
        Console.WriteLine("Target Array: {0}", String.Join(", ", target))
    End Sub
End Module

说明 #

修复后的代码会正确遍历数组找到第一个最大值和最后一个最小值，排除这两个元素后生成新数组并输出。例如原数组中第一个最大值是63（索引7），最后一个最小值是0（索引10），目标数组会排除这两个位置的元素。

内容的提问来源于stack exchange，提问作者Bagrat