【单选题】下列程序: 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 ...
【单选题】下列程序: 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 l...