面试题：Visual Basic 数组操作与循环

Question

在Visual Basic中，给定一个包含10个整数的数组，要求使用For循环找出数组中的最大值和最小值，并将它们打印出来。请编写完整的代码示例。

Answer 1

Option Explicit

Sub FindMaxMin()
    Dim arr(1 To 10) As Integer
    Dim i As Integer
    Dim max As Integer
    Dim min As Integer
    
   '初始化数组
    arr(1) = 5
    arr(2) = 10
    arr(3) = 3
    arr(4) = 15
    arr(5) = 1
    arr(6) = 20
    arr(7) = 7
    arr(8) = 12
    arr(9) = 4
    arr(10) = 18
    
   '假设第一个元素既是最大值也是最小值
    max = arr(1)
    min = arr(1)
    
    For i = 2 To 10
       '检查是否为最大值
        If arr(i) > max Then
            max = arr(i)
        End If
       '检查是否为最小值
        If arr(i) < min Then
            min = arr(i)
        End If
    Next i
    
   '打印最大值和最小值
    Debug.Print "最大值: " & max
    Debug.Print "最小值: " & min
End Sub