用vba编写一个程序，将一个同学的5门课程成绩输入，并赋值给一个数组，输出其中的最高成绩和最低成绩

在VBA（Visual Basic for Applications）中，你可以创建一个简单的Sub过程来完成这个任务。以下是一个示例代码：

Sub FindMaxMinScores()
    '声明一个动态数组来存储成绩
    Dim scores(4) As Integer
    Dim maxScore As Integer = 0
    Dim minScore As Integer = 99 '假设初始最小值为最大整数

    '让用户输入5门课程的成绩
    Console.WriteLine("请输入五门课程的成绩（例如100,85,92,76,88）：")
    For i = 0 To 4
        scores(i) = InputBox("请输入第" & (i + 1) & "门课的成绩")
        '更新最高分和最低分
        If scores(i) > maxScore Then
            maxScore = scores(i)
        End If
        If scores(i) < minScore Then
            minScore = scores(i)
        End If
    Next i

    '输出最高分和最低分
    Console.WriteLine("最高成绩是：" & maxScore)
    Console.WriteLine("最低成绩是：" & minScore)
End Sub

运行此宏后，会提示用户依次输入五门课程的成绩，然后自动计算并显示最高分和最低分。