单选题
设有下面程序代码：
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
程序运行时的输出是