以下程序用Array()函数建立了含有10个元素的数组,然后找出并输出了其中的最大值和最小值。 Option Base 1 Private Sub Form_Click() Dim a Dim max As Integer, min As Integer, i As Integer a = Array(13, 17, -11, 4, 8, 10, 20, -9, 15, 21) max = a(1) min =______(1)______ For i = 2 To 10 If a(i) > max Then ______(2)______ End If If a(i) < min Then ______(3)______ End If Next i Print max, min End Sub

时间:2024-05-07 13:42:04

相似题目