下面的程序段运行后，消息框显示的结果是______。 For i = 1 To 4 n = 1 For j = 1 To i n = n * j Next j Next i MsgBox（n)A．4B．5C．24D．288
下面的程序段运行后，消息框显示的结果是______。 For i = 1 To 4 n = 1 For j = 1 To i n = n * j Next j Next i MsgBox（n)
A．4
B．5
C．24
D．288
参考答案和解析
B解析：本题考查VBA中表达式运算的知识。在VBA中允许逻辑量进行算术运算，True处理成-1，Fa
相关考题：
以下程序运行后的输出结果是【13】。includestdio．hmain(){ int n[2]，i，j；for(i=0；i2；i++)n[i]=0；for(i=0；i2；i++)for(j=0；j2；j++)n[j]=n[i]+1；printf("％d＼n"，n[1])；}
以下程序的输出结果是 ______。 Dim n(2,2), i, j As Integer For i = 0 To 2 For j = 0 To 2 n(i,j) = i + j Next j Next i For i = 0 To 1 For j = 0 To 1 n(i+ 1 ,j + 1) = n(i + 1,j + 1) + n(i, j) Next j Next i Print n(i, j)A．14B．0C．6D．值不确定
有以下程序 int f(int n) { if(n==1)return 1； else return f(n-1)+1；} main() { int i，j=0； for(i=1；i＜3；i++)j+=f(i)； printf("%d\n"，j)；} 程序运行后的输出结果是A．4B．3C．2D．1
假定有以下程序段 n=0 for i=1 to 4 for j=3 to-1 step-1 n=n+1 next j next i 运行完毕后n的值是( )。A．12B．15C．16D．20
有以下程序 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"，n[1])； } 程序运行后的输出结果是( )A．2B．1C．0D．3
有以下程序main(){ int n［3］，i,j; for(i=0;i3;i++) n[i]=0; for(i=0;i2;i++) for(j=0;j2;j++) n[j]=n[i]+1; printf( "%d＼n",n[1]);}程序运行后的输出结果是A．2 B．1C．0 D．3
有以下程序int f（int n）{ if（n==1）return 1; else return f（n-1）+1;}main(){ int i,j=0; for（i=1;i3;i++）j+=f(i); printf（"%d＼n",j）; }程序的运行结果是A．4 B．3C．2 D．1
有以下程序includestdio．hmain( ){int n[2l，ij；for(i=0；i2；i++)n[i]=0;for(i=0；i2；i++)for(j=0；j2；j++)n[j]=n[i]+1;printf(”％d＼n”，n[1])；}程序运行后的输出结果是________ 。
有以下程序int f(int n){ if（n==1 return 1; else return f(n-1)+1;}main(){ int i,j=0; for（i=1;i3;i++） j+=f（i）; printf("%d＼n",j);}程序运行后的输出结果是A．4 B．3 C．2 D．1
有如下事件过程： Private Sub Form. Click（ ） Dim n As Integcr x=0 n=InputBox("请输入一个整数") For i=1 To i for j =1 To j x=x+1 Next j Next i Print x End sub 程序运行后，单击窗体，如果在输入对话框中输入5，则在窗体上显示的内容是（ ）。A.13B.14C.15D.16
下列程序段执行后，执行的结果是______ 。 Dim M(10) Dim N(10) i=3 For j = 1 To 5 M(j) = j N(i) = 2 * i + j Next j Print N(i); M(i)A．12 4B．11 3C．3 11D．10 2
下列程序段的执行结果为 n=0 For i=1 To 3 For j=5 To 1 Step-1 n=n+1 Next j，i Print n；j；iA．12 0 4B．15 0 4C．12 3 1D．15 3 1
假定有以下程序段： n=0 for i=1 to 4 for j=3 to -1 step -1 n=n+l next j next i运行完毕后n的值是( )。A．12B．15C．16D．20
有以下程序int f(int n){ if(n==1)return 1;else return f(n-1)+1;}main(){ int i,j=0;for(i=1;i3;i++)j+=f(i);printf("%d\n",j);}程序运行后的输出结果是A．4B．3C．2D．1
以下程序运行后输出的结果是______。 For j=i To 4 GoSub s： m=m+1/n Next j Print m；n End s：n=j*(j+1) ReturnA．0.8，20B．0.75，12C．1.8，20D．1.75，12
下列程序段的执行结果为_______。 N=0 For I=1 To 3 For J=5 To 1 Step -1 N=N+1 Next J Next I Print N；J；IA．12 0 4B．15 0 4C．12 3 1D．15 3 1
有以下程序 int f(int n) { if (n==l) return 1; else return f(n-1)+1; } main () { int i,j=0; for(i=i;i＜3;i++) j+=f(i); printf {"%d\n", j ); } 程序运行后的输出结果是A．4B．3C．2D．1
'下面的程序运行时,单击窗体后,窗体上显示的结果是( )。Private Sub Form_Click(B )Dim a(1 To 5)As Integera(1)= 2: a(2)= 3: a(3)= 1: a(4)= 5: a(5)= 4n = 5For i = 1 To n - 1Min = iFor j = i + 1 To nIf a(j)Next jt = a(i): a(i)= a(Min): a(Min)= tNext iFor i = 1 To nPrint a(i);Next iEnd SubA. 2 3 1 5 4B. 1 2 3 4 5C. 9 8 7 6 5D. 5 5 5 5 5
有以下程序 int f(int n) { if(n＝＝1) return 1； else return f(n-1)+1； } main() { int i,j＝0； for(i＝1；i＜5；i++) j+＝f(i)； printf("%d\n"，j)； } 程序运行后的输出结果是( )A．15B．10C．6D．3
在窗体上画一个名称为Command1的命令按钮和一个名称为List1的列表框。如下图所示程序的功能是：单击命令按钮后，程序用“筛选法”求出1-100之间的全部素数。并将素数在列表框中显示出来。根据题意，填空处应选择Option Base 1 Dim a(100)As Integer Private Sub Command1_Click() n = 100 For i = 2 To Sqr(n) For j = i + 1 To n If j Mod i = 0 And a(j)＜＞ 0 Then a(j)= 0 Next j Next i For i = 1 To n If a(i)＜＞ 0# Then Next i End Sub Private Sub Form_Load () For i = 1 To 100 a (i)=i Next i End SubA．List1.Text=Str(a(i))+ vbCrLfB．List1.Text=Str(a(i))+ vbCrLfC．List1.AddItem a(i)D．List1.AddItem=a(i)
有以下程序： int f(int n) { if (n==1) return 1； else return f(n-1)+1； } main() { int i，j=0； for(i=i；i＜3；i++) j+=f(i)； printf("%d\n"，j)； } 程序运行后的输出结果是( )。A．4B．3C．2D．1
试题13以下程序运行后的输出结果是______.#include stdio.hmain(){ int n[2], i, j;for(i=0; i2;i++) n[i]=0;for(i=0; i2; i++)for(j=0; j2; j++) n[j]=n[i]+1;printf(“%d\n”, n[1]);}