下列的程序段执行后,x的值为______。Private Sub Command1_Ciick() x =0 for i =1 To 10 for j = i To 10 x=x+1 Next j Next i Print xEnd SubA.50B.55C.5D.105

下列的程序段执行后,x的值为______。Private Sub Command1_Ciick() x =0 for i =1 To 10 for j = i To 10 x=x+1 Next j Next i Print xEnd Sub

A.50

B.55

C.5

D.105


相关考题:

执行下面的程序段,x的值为【 】。Private Sub Command1_Click()For i=1 To 9a=a+iNextx=Val(i)MsgBox xEnd Sub

阅读下列的程序段:sum=0for i=1 to 3for i=i to 4for k=j to 5sum=sum+1next knext jnext I执行上面的三重循环后,sum的值为______。

有以下程序:Private Sub Form_Activate()For j=1 to 3x=3For i=l to 2x=x+6NextNextPrint xEnd Sub程序运行后,窗体上显示的结果为______。

执行以下程序段Dim i As Integer, x As Integerx = 0For i = 20 To 1 Step -2x = x + i \ 5NextPrint x后,x的值为( )。A.16B.17C.18D.19

阅读下列程序段:x = 0For i = 1 To 4For j = 1 To ix = x + 1Next j, i执行以上循环后,x 的值为( )。A、 6B、 9C、 10D、 16

阅读下面的程序段:a=0For i=1 To 3For j=1 To iFor k=j To 3a=a+1Next kNext jNext i执行上面的程序段后,a的值为A.3B.9C.14D.21

执行下面的程序段,x的值为 。private Sub Command1_Click()For i=1 To 5 a=a+iNext iX=Val(i)msgBox xEnd SubA.5 B.6 C.7 D.8

阅读下面的程序段:sum=0for i=1 to 3for j=i to 4for k=j to 5next jnext i执行上面的三重循环后,sum的值为( )。

下列程序的执行后,X的结果为()。 Private Sub Command1_Click( ) x=0 For i=1 to 3 x=1 For j=1 to 4 x=2 For k=1 to 5 x = x + 2 Next k Next j Next i Print x End Sub A. 12B. 24C. 36D. 48

有以下程序:Private Sub Form_Activate()For j=1 to 3x=3For i=1 to 2x=x+6NextNextPrint xEnd Sub程序运行后,窗体上显示的结果为______。

下面程序段运行后,变量X的值为【 】。Dim x AS IntegerDim I AS Integerx=0for I=0 to 50 step 10X=X+I。next IPrint X

执行下列程序段后,x的值为______。Dim x As Integer, i As Integerx=0For i=20 To 1 Step -2x=x +i\5Next i

下面程序段的运行结果是【 】。Option Base 1Private Sub Swap (a() As IntegFor I=1 to 10\2t=a(I)a(I)=a(10-I+1)a(10-I+1)=tNext IEnd SubPrivate Sub Form_Click()Dim x(10) As IntegerFor I=1 to 10x(I)=I*2Next ISwap x()For I=1 to 10Print x(I)Next IEnd Sub

阅读下面的程序段:a==0For i=1 To 3For j=1 To iFor k=j To 3a=a+lNext kNext jNext i执行上面的程序段后,a的值为( )。A.3B.9C.14D.21

有如下程序:Private Sub Command1_Click()j =10For i= -1 To 1 Step 0.3j =j + 1Next iPrint jEnd Sub该程序共循环【 】次,程序执行完毕后j的值是【 】。

以下能够正确计算n!的程序是A.Private Sub Command1 Click() n=5:x=1 Do x=x * I I=I + 1 Loop While I < n Print x End SubB.Private Sub Command1_Click() n=5:X=1:I=1 Do X=X*I I=I + 1 Loop While I <n Print x End SubC.Private Sub Command1_Click() n=5:X=1:I=1 Do X=X * I I=I + 1 Loop While I<=n Print X End SubD.Private Sub Command1_Click() n=5:X=1:I=1 Do x=x * I I=I + 1 Loop While I>n Print X End Sub

下列的程序段执行后,X的值为______。 K=0 For i=1 To 10 For j=i To 10 x= x + 1 Next j Next iA.50B.55C.100D.105

阅读下面的程序: Private Sub Command1_Click() For i=1 To 3 For j=1 To i For k=j To 3 x=x+1 Next k Next j Next i Print x End Sub 程序运行后,单击命令按钮,窗体上输出的结果是A.3B.9C.14D.21

执行下面的程序段,x的值为 Private Sub Commandl_Click() For i=1 To 5 a=a+i Next i x=Val(i) MsgBox x End SubA.5B.6C.7D.8

执行以下程序段Dim x As Integer,i As Integerx=0For i=20 To 1 Step-2 x=x+i\5Next i后,x的值为A.16B.17C.18D.19

以下能够正确计算n! 的程序是( )。A.Private Sub Command1_Click( ) n=5:x=l Do x=x*i i=i+1 Loop While i < n Print x End SubB.Private Sub Command1_Click( ) n=5:x=1:i=1 Do x=x*i i=i+1 Loop While i < n Print x End SubC.Private Sub Command1_Cliek( ) n:5:x=1:i=1 Do x=x* i i:i+1 Loop While i < = n Print x End SubD.Private Sub Command1_Cliek( ) n=5:x:1:i=1 Do x=x*i i=j+1 Loop While i > n Print x End Sub

执行以下程序段后,x的值为______。Dim x As Integer,i As Integerx=0For i=20 To 1 Step -2x=x+i\5Next i

执行下列的程序段后,变量a的值为______。a=0For i=2.7 To 5.9 Step 0.5a=a+1Next i

下列程序用于输出一个主对角线上元素值为“*”,其他元素值为“”的5×5阶的方阵,试将程序补充完整。Private Sub Command1_Click()Dim x(5, 5)For i = 1 To 5For j = 1 To 5If ______Thenx(i, j) = '*'Else______End IfPrint ______Next jPrintNext iEnd Sub

以下能够正确计算n!的程序是______。A.Private Sub Commeadl_Click() n=5: x=1 Do x=x*i i=i+1 Loop While i<n Print x End SubB.Private Sub Command1_Click() n=5: x=1: i=1 Do x=x*i i=i+1 Loop While i<n Print x End SubC.Private Sub Command1_Click() n=5: x=1: i=1 Do x=x*i i=i+1 Loop Whilei<=n Print x End SubD.Private Sub Commsndl_Click() n=5: x=1: i=1 Do x=x*i i=i+1 Loop While i>n Print x End Sub

执行下面的程序段,x的值为 Private Sub Command1_Click( ) For i=1 To 5 a=a+i Next i x=Val(i) MsgBox x End SubA.5B.6C.7D.8

下列程序运行后的输出结果是______。Private Sub f(k,s)s=1For j=1 To ks=s*jNextEnd SubPrivate Sub Command1_Click()Sum=0For i=1 To 3Call f(i,s)Sum=Sum+sNextPrint SumEnd Sub