![](https://cos-cdn.shuashuati.com/pipixue-web/2020-1231-2005-12/ti_inject-812ce.png)
设有下面程序代码: Private Sub Command1_Click() Dim a As Variant a = Array(22, 43, 23, 56, 87, 45, 67, 12, 98, 98, 56, 34, 23, 75, 64) m = a(0) n = m For k = 1 To UBound(a) If a(k) > m Then n = m : m = a(k) ElseIf a(k) > n And a(k) <> m Then n = a(k) End If Next k Print n End Sub 程序运行时的输出是