单项选择题

设有如下事件过程：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)　　Next i　　Print bEnd Sub运行程序，输出是(　　)。