下列程序: Option Base 1 Dim a()As Integer Private Sub Command1_Click() n=Val(InputBox(′′请输入数组的下标上界′′)) ReDim a(n)as Integer s=0 For j=1 To n a(j)=2*j s=s+a(j) Next j av=s/n For j=1 To n If a(j)>=av Then lag=lag+1 Else sma=sma+1 End If Next j Print n;′′个数的平均值是′′;av;′′,平均值以上的个数是′′;lag; ′′,小于平均值的个数是′′;sma End Sub 运行后,当用户在输入对话框中输入3,按“确定”按钮后,输出结果是( )。