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

单项选择题设有如下事件过程：Private Sub Command1_Click() For i＝1 To 5 j＝i Do Print * j＝j－1 Loop Until j＝0 Next iEnd Sub运行程序，输出 * 的个数是( )。

单项选择题编写如下程序：Private Sub Command1_Click() Dim i As Integer， j As Integer n＝InputBox( 输入一个大于1的正整数 ) For i＝2 To n For j＝2 To Sqr(i) If i Mod j＝0 Then Exit For Next j If j>Sqr(i)Then Print i Next iEnd Sub该程序的功能是( )。