Private Sub Command1_Click()
Dim a(1 To 6) As Integer
Dim d(1 To 6) As Integer
a(1) = 28: a(2) = 21: a(3) = 30: a(4) = 11: a(5) = 12: a(6) = 29
Const n = 6
Max = 0
For i = 1 To n
d(i) = 0
For j = 1 To i - 1
If a(j) < a(i) Then d(i) = d(i) + 1
Next j
If d(i) > Max Then Max = d(i)
Next i
End Sub
执行完以上程序后，Max的值为（ ）
