for(i=1;i<9;i+=1);，该循环共执行了（　　）次

以下程序段的输出结果为（ ）。　　Dim 1，a(10)，p(3)　　k=5　　Fori=0 To 10　　　　a(i)=i　　Next i　　For i=0 To 2　　　　p(i)=a(i*(i+1))　　Next i　　For i=0 To 2　　　　k=k+p(i)*2　　Next i　　Frint k 有如下程序，输出结果为( )。 Private Sub Form_Activate() Dima a=Array(1,2,3,4,5) Fori=LBound(a)To UBound(a) a(i)=i*a(i) Nexti Printi，LBound(a)，UBound(a)，a(i) End Sub 下列程序的输出结果是( )。 Dim a a=Array(1，2，3，4，5，6，7，8) i=0 For k=100 To 90 Step-2s=a(i)^2If a(i)＞3 Then Exit Fori=i+1 Next k Print k；i；s 阅读下列程序，写出程序运行结果：【程序1清单】C=”三号教学楼”FORI=1TOLEN（C）/2IFMOD（I,2）=1SUBS（C,2*I-1,2）ENDIFENDFOR 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Commandl_Click（) Dim a （1 To 10) Dim p（1 To 3) k=5 For i=1 To 10 a（i)=i Nexti Fori=1 To 3 p（i)=a（i*i) Next i For i=1 To 3 k=k+p（i)*2Next i Print k End Sub 程序运行后，单击命 下面程序运行后，输出结果是（)。 Private Sub mysub（b（)As Integer,OptionalByValnAsInteger=2) ForI=1 to 4 b（I)=n*I NextI End Sub Private Sub Commandl_Click（) Dima（1 to 4)As Integer，I As Integer Callmysub（a（)，5) Mysuba 在窗体上画一个命令按钮（其Name属性为Commandl)，然后编写如下代码： Private Sub Commandl_Click（) Dima（5) Fori=0 To 4A（i)=i+1t=i+1If t=3 Then Print a（i) A（t-1)=a（i-2) Else A（t)=a（i) End If Ifi=3 Thena（i+1)=a（t-4) A（4)=1 Printa（i) 阅读程序： Option Base 1 Private Sub Form_Click（) Dima（3)As Integer Print"输入的数据是:"； Fori=1 To 3 a（i)=InputBox（“输入数据”) Printa（i)； Next Print If a（1)＜a（2) Then t=a（1) a（1)=a（2) a（2)= [10] End If Ifa（2)＞a（3)T 以下程序段中的变量已正确定义fori=0i<4i++,i++）fork=1k<3k++）printf（"*"）;该程序段的输出结果是（） 有如下事件过程： Private Sub Form Active （) Dim Score （1 to 3) As Integer Dim i As Integer Dim t As Variant Fori=3 To 1 step-1 Score （i) = 2 * i Next For Each t In Score Print t Next End Sub 程序运行后窗体上显示的值为 【1 下面运行程序后，单击命令按钮，输出的结果是______。 Private Sub Commandl_clck（) Dim a%（1 To 4)，b%（3 To 6)，i%，s1，s2 Fori=1 To 4a（i)=i Nexti For i=3 To 6b（i)=i Nexti s1=YAS（a) S2=YAS（b) Printt"s1="；S1"S2="；s2 End Sub Function 程序在运行循环Fori＝1to14Step3结束后，的值等于（） 如果存在如下过程： Private Function FMax（a（)As Integer) Dim First As Integer，Last As Integer，i As Integer First=LBound（a) Last=UBound（a) Max=a（First) Fori=FirSt To Last Ifa（i)＞Max ThenMax=a（i) Nexti FMax=Max E 下列程序段的执行结果为______。 DimA（10,10) Fori=2 To 4 Forj=4 To 5 A（i,j)-i*j Next j Next i PrintA（2,5)+A（3,4)+A（4,5) 有如下程序，该段程序将( )。 Fori=1 to 10 Step0 k=k+2 Nexti 由“Fori：1To9Step-3"决定的循环结构，其循环体将被执行（） 下列程序运行后，单击窗体，在窗体上显示：1，1+2，1+2+3，1+2+3+4，1+2+3+4+5的和。请在横线处填写适当的内容，将程序补充完整。 Private Sub Form_Click（) Dim i As Integer,tt As Integer Fori=1 To 5 tt=Sum（i):Print "tt=";tt, Next i End Sub Private Function 运行以下程序后，输出的图形是( )。 Forr=O To 150 Circle(320,240)，r Fori=1 To 1000 Nexti Nextr 下列属于即付年金终值系数的指标有: [(1+i)^n-1]/i*(1+i)|[1-(1+i)^-n]/i*(1+i)|[1-(1+i)^-n]/i*(1+i)^(n+1)|{[(1+i)^(n+1)-1]/i}-1|{[1-(1+i)^-(n-1)]/i}+1 下面程序运行的结果为 1 11 12 21 22 23 31 32 33 34 请在画线处填上适当的内容使程序完整。 Private Sub Form_Click（) Call______ End Sub Private Sub Pl6（) End Sub Private Sub p16（) ForI=1 to 4 Forj=1 to I a=______ Print Tab（j-1)*5+1)；