阅读下面的程序段： For a=1 To 2 For b=1 To a For c=b To 2 i=i+1 Next Next Next Print i 执行上面的3重循环后，i的值为

以下程序的输出结果是( )。 Option Base 1 Private Sub Command1_Click() Dim a(10),p(3) as Integer k=5 For I-1 to 10 a(i)=I Next I For j=1 to3 p(i)=a(I*j) Next j For I=l to 3 k=k+ p (I)*2 Next I Print k End Sub

有以下程序 main() { int x[]={1,3,5,7,2,4,6,0},i,j,k; for(i=0;i＜3;i++) for(j=2;j＞＝i;j--) if(x[j+1]＞x[j]){ k=x[j];x[j]=x[j+1];x[j+1]=k;} for(i=0;i＜3;i++) for(j=4;j＜7-i;j++) if(x[j]＞x[j+1]){ k=x[j];x[j];x[j+1];x[j+1]=k;} for(i=0;i＜8;i++)printf("%d",x[i])； printf(" ")； } 程序运行后的输出结果是

阅读程序： Option Base 1 Dim arr()As Integer Private Sub Form_Click() Dim i As Integer,j As Integer ReDim arr(3,2) For i=1 To 3 For j=1 To 2 arr(i,j)=i*2+j Next j Next i ReDim Preserve arr(3,4) For j=3 To 4 arr(3,j)=j+9 Next j Print arr(3,2)+arr(3,4) End Sub 程序运行后，单击窗体，输入结果为______。

下列程序段的执行结果为 n=0 For i=1 To 3 For j=5 To 1 Step-1 n=n+1 Next j，i Print n；j；i

下面的程序段执行后，X的结果为______。 X=0 For I=1 to 5 For j=I to 5 X=X+1 Next j Next I Print x

当发生Form_Click事件时，窗体上显示的第三行是( )。 Option Base 1 Private Sub Form_Click() Dim i As Integer，j As Integer，k As Integer Dim a(5，5)As Integer For i=1 To 5 k=1 For i=1 To 5 If(i＜=j)Then a(i,j)=k k=k+2 Else a(i,j)=k+1 End If Next j Next i For i=1 To 5 For j=1 To 5 Print a(i,j)； Next j Print Next i End Sub

编写以下程序段： DIM I, J, K, A A=0 FOR I = 1 TO 3 FOR J = 1 TO I FOR K=-J TO 3 A=A+1 NEXT K NEXT J NEXT I 执行上面的三重循环后，变量A的值为( )。

阅读下面的程序段： K=0 for I=1 to 3 for J=1 to I K=K+J Next J Next I 执行上面的语句后，K的值为______。

阅读下面的程序段： K=0 Forl=1 t03 For J＝l to I K=K+J Next J Next 1 执行上面的语句后，K的值为______。

阅读下面的程序段： K=0 For I=1 to 3 For J=1 to I K=K+J Next J Next I 执行上面的语句后，K的值为______。

阅读下面程序段： For a=1 To2 For b =1 To a For c = b To 2 i=i+1 Next Next Next Print i 执行上面的3重循环后，i的值为