阅读下面程序段： For a=1 To2 For b =1 To a For c = b To 2 i=i+1 Next Next Next Print i 执行上面的3重循环后，i的值为 -题库考试答案搜索网

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

单选题

2023-03-05 15:25

A、4
B、5
C、6
D、9

查看答案

正确答案

B

试题解析

解析：本题是一个多重循环语句，是 For…Next结构的多重迭用，仔细分析一下即可看出：在结构中，i=i+1共执行了5次，所以最后i的值为5。

标签：

感兴趣题目

下列程序段的执行的结果是 Dim a(10)，b(10) i=3 For j=1 To 5 a(j) =j b(i) =2 * i + j Next j Print b(i)；a(i)

编写以下程序段： 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的值为( )。

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

有下列程序段，其输出结果为( )。 a=0:b=0 For i=-1 To-2 Step-1 For j=1 To 2 b=b+1 Next j a=a+1 Next i Print a；b

下列程序段的执行结果为______。 A=0: B=0 For I=-1 To -2 Step-1 For J=1 To 2 B=B+1 Next J A=A+1 Next I Print A; B

下列程序段的执行结果为 ______。A=0:B=0For I = -1 To -2 Step -1 For J = 1 To 2 B=B+1 Next J A=A+1Next IPrint A; B

有下列程序段，其输出结果是( )。 a=0:b=0 For i=-1 To -2 Step -1 For j=1 To 2 b=b+1 Next j a=a+1 Next i Print a;b

下列程序段的执行结果为 a=3 b=1 For I=1 To 3 f=a + b a=b b=f Print f Next I

下列程序段的执行结果为 a=1 b=2 For I=1 To 3 f=a * b a=b b=f Print f Next I

下列程序段的执行结果为( )。 a=1 b=1 For I=1 To 3 f=a+b a=b b=f Print f： Next I

以下程序段的执行结果是 ______。 Dim a As Integer，b As Integer For a=4 To 1 Step-1 b=b+a Next a Print b， a

下列程序的运行结果是 ______。Private Sub Command1_ Click () a =1: b=1 for i = 1 To 3 a= a+ b: b=b+ a Next i Print a, bEnd Sub

相关题目: 下列程序段的执行结果为______。 Private Sub Command1_Click() n = 0 For a = 1 To 20 For b = 1 To 20 For c = 1 To 20 If a * a + b * b - c * c Then n=n+l End If Next c Next b Next a Print n End Sub; 阅读下面的程序段： a==0 For i=1 To 3 For j=1 To i For k=j To 3 a=a+l Next k Next j Next i 执行上面的程序段后，a的值为（）。; 阅读下面的程序段： For i=1 To 3 For j=1 To i For k=j To 4 a=a+1 Next k Next j Next i 执行上面的三重循环后，a的值为( )。; 阅读下面的程序段，执行上面的三重循环后，a的值为 ______ 。 For i=1 To 3 For j=1 To i For k=j To 4 a=a+1 Next k Next j Next i; 下列程序段的执行结果为______。Dim A(10)，B(5) For i=1 To 10 A(i)=i Nex i For j=1 To 5 B(j)=j*20 Next j A(5)=B(2) Print "A(5)="；A(5); 若有如下程序段，其中s、a、b、c均已定义为整型变量，且a、c均已赋值(c大于0)， s=a; for(b=1;b＜=c;b++) s=s+1; 则与上述程序段功能等价的赋值语句是( )。; 若有如下程序段，其中s、a、b、c均已定义为整型变量,且a、c均已赋值（c大于0）s=a;for(b=1;b<=c;b++) s=s+1;则与上述程序段功能等价的赋值语句是; 下列程序段的执行结果为( )。 Dim A(3,3) For M=1 To 3 For N=1 To 3 If N=M Or N=3-M+1 Then A(M,N)=1 Else A(M,N)=0 End If Next N Next M For M=1 To 3 For N=1 To 3 Print A(M,N) Next N Print Next M; 下列程序段的执行结果为 Dim A(3,3) For M=1 To 3 For N=1 To 3 If N=M Or N=3-M+1 Then A(M,N)=1 Else A(M,N)=0 End If Next N Next M For M=1 To 3 For N=1 To 3 Print A(M,N) Next N Print Next M; 下列程序段的执行结果为______。 Dim A(3，3) For M=1 To 3 For N=1 To 3 If N=M 0r N=3-M+1 Then A(M，N)=1 Else A(M，N)=0 End If Next N Next M For M=1 To 3 For N=1 To 3 Print A(M， N)； Next N Print Next M; 下列程序段的执行结果为( )。 Dim A(3，3) For M=1 To 3 For N=1 To 3 If N=M Or N=3-M+1 Then A(M, N)=1 Else A(M，N)=0 End If Next N Next M For M=1 To 3 For N=1 To 3 Print A(M，N) Next N Print Next M; 阅读下面的程序段： 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的值为; 下列程序段的执行结果为 ______。 Dim A(10)，B(5) For i=1 To 10 A(i)=i Next i For i=1 To 5 B(j)=j*20 Next i A(5)=B(2) Print=A(5)= "；A(5); 下列程序段的执行结果为______。 Dim A(10),B(5) For i=1 To 10 A(i)=i Next i For j=1 To 5 B(j)=j*20 Next j A(5)=B(2) Print"A(5)="; A(5); 下列程序段的执行结果为 ______。 Dim A(10)，B(5) For i=1 To 10 A(i)=i Next i For j=1 To 5 B(j)=j*20 Next j A(5)=B(2) Pring"A(5)="；A(5); 下列程序段的执行结果为______。 DimA(10),B(5) For i=1 To 10 A(i+=i Next i For i=1 To 5 B(j)=j*20 Nextj A(5)=B(2) Pfiat"A(5)"；A(5); 若有以下程序，当程序运行后，单击命令按钮，则输出的结果为( )。 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; 下面程序段，运行后的结果是 Private Sub Commandl_Click( ) Dim b%(1 To 4)，i%，t# For i=1 To 4 b(i)=i Next i t=Tof(b( ) ) Print"t="；t， End Sub Function Tof(a() As Integer) Dim t#，i% t=1 For i=2 To UBound(A)t=t * a(i) Next i Tof=t End Function; 下面程序段，运行后的结果是 Private Sub Command1_Click() Dim b%(1 To 4)，i%，t# For i=1 To 4 b(i) =i Next t=Tof(b() ) Print"t="；t， End Sub Function Tof(a() As Integer) Dim t#,i% t=1 For i=2 To UBound(a) t=t*a(i) Next Tof=t End Function; 下面程序段，运行后的结果是 Private Sub Command1_Click() Dim b%(1 To 4) ,i%, t# For i = 1 To 4 b(i) =i Next t =Tof(b() ) Print "t ="; t, End Sub Function Tof(a() As Integer) Dim t#, i% t=1 For i =2 To UBound(A)t=t * a(i) Next Tof = t End Function

广告位招租WX:84302438

题库考试答案搜索网

免费的网站请分享给朋友吧