运行下面的程序后，输出的结果为 Cls Dim t(5, 5) as Integer For i=1 To 5: t(i,i) =1: Next For i = 1 To 5 For j = 1 To 5 Print t(i, j), Next Print Next

以下程序的输出结果为 Dim i，c(10)，p(3) k=5 For i=0 To 10 c(i) =i Next i For i=0 To 2 p(i) = c(i * (i + 1)) Next i For i=0 To 2 k=k+p(i) * 2 Next i Print k

下列程序运行时输出的结果是( )。 Option Base 1 Const a=10 Private Sub Form_Click() Dim x(a)As Integer k=-1 For i=1 To a x(i)=i*k k=(-1)*k Next i For i=1 To 10 Print x(i) Next i End Sub

以下程序的输出结果是( )。 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

下面程序段的运行结果是( )。 Private Sub Form_Click() For I=3 to 1 step-1 Print Spc(10-I)； For j=1 to 2*I-1 print"*"; Next j Print Next I End Sub

若有以下程序，当程序运行后，单击命令按钮，则输出的结果为( )。 Private Sub Command1_Click() Dim a%(1 To 4), b%(3 To 6), i%, s1#, s2# For i= 1 To 4 a(i) = i Next i For i=3 To 6 b(i) = i Next i s1 = Factorial (A) s2 = Factorial (B) Print "s1="; s1; "s2="; s2 End Sub Function Factorial(a() As Integer) Dim t#, i% t=1 For i = LBound(A)To UBound(A) t = t * a(i) Next i Factorial = t End Function

下列程序的输出结果是( )。 Dim a a=Array(1，2，3，4，5，6，7，8) i=0 For k=100 To 90 Step-2 s=a(i)^2 If a(i)＞3 Then Exit For i=i+1 Next k Print k；i；s

下面程序运行后，输出结果为( )。 Dim a() a=Array(1,3,5,7,9) s=0 For i=1 To 4 s=s*10+a(i) Next i Print s

有以下程序：#include main(){　int b[3][3]={0,1,2,0,1,2,0,1,2},i,j,t=1;　for(i=0;i<3;i++)　　for(j=i;j<=i;j++)t+=b[i][b[j][i]];　printf(%d,t);}程序运行后的输出结果是（　　）。

有以下程序#includemain(){　int b[3][3] = {0,1,2,0,1,2,0,1,2},i,j,t = 1;　for(i = 0;i<3;i++)　　for(j = i;j <= i;j++)t+=b[i][b[j][i]];　printf(%d,t);}程序运行后的输出结果是（　　）。

有以下程序 main() { int n[3]，i，j； for(i＝0；i＜3；i++)n[i]＝0; for(i=0;i＜2,i++) for(j=0;j＜2;j++)n[j]=n[i]+1; printf("%d "，n[1])； } 程序运行后的输出结果是( )