设有如下事件过程: Private Sub Command1_Click() Dim a a = Array(3, 5, 6, 3, 2, 6, 5, 3, 5, 4, 3, 9, 4, 5, 6, 3, 5) x = 0 n = UBound(a) For i = 0 To n m = 0 For j = 0 To n If a(i) = a(j) Then m = m + 1 End If Next j If m > x Then x = m: b = a(i) End If Next i Print b End Sub 运行程序,输出是