面试题：Visual Basic复杂条件与嵌套循环

Question

假设有两个数组，一个数组A存储了5个学生的语文成绩，另一个数组B存储了这5个学生的数学成绩。使用Visual Basic的条件语句和循环结构，编写代码找出语文和数学成绩都大于80分的学生，并输出这些学生在数组中的索引位置。

Answer 1

Option Explicit

Sub FindHighScorers()
    Dim A(1 To 5) As Integer
    Dim B(1 To 5) As Integer
    Dim i As Integer
    
   '假设已有成绩数据，这里仅为示例赋值
    A(1) = 85: A(2) = 75: A(3) = 90: A(4) = 82: A(5) = 78
    B(1) = 88: B(2) = 79: B(3) = 81: B(4) = 89: B(5) = 76
    
    For i = 1 To 5
        If A(i) > 80 And B(i) > 80 Then
            Debug.Print "学生在数组中的索引位置: " & i
        End If
    Next i
End Sub