单选题 设有如下事件过程：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运行程序，输出是(　　)。
【正确答案】 B
【答案解析】解析：本题程序中内层For循环是统计具有相同值元素的个数，外层循环的功能则是，对数组中的所有元素进行统计，找出第1个具有相同值的元素个数最多的那个元素值。数组组中元素值为3的元素有5个，元素值为5的元素有5个，元素值为6的元素为3个，元素值为2的元素有1个，元素值为4的元素有1个，元素值为9的元素有1个。因此第1个具有相同元素值的最多个的元素值是3。