某建筑物原有一横截面为490mm×490mm、高为3.6m的独立砖柱，欲在其表面镶贴厚度为25mm的人

下列程序段的执行结果为 i=4：x=5:Do i=i+1; x=x+2 Loop Until i＞=7 Print "i="；i Print "x="；x

A．i=4 x=5

B．i=7 x=15

C．i=6 x=8

D．i=7 x=11

下列程序段的执行结果为()。 I=4 x=5 Do I=I+1 x=x+2 Loop Until I＞=7 Print"I=";I Print"x=";x

A．I=4 x=5

B．I=7 x=15

C．I=6 x=8

D．I=7 x=11

A．I=4x=5

B．I=7x=15

C．I=6x=8

D．I=10x=7

A．I=4 x=5

B．I=7 x=15

C．I=6 x=8

D．I=7 x=11

下列程序段的执行结果为 I=4 x=5 Do I=I + 1 X=K^2 Loop Until I＞=7 Print"I="；I Print"x="；x

A．I=4 x=258694

B．I=7 x=256987

C．I=6 x=365840

D．I=7 x=390625

下列程序段的执行结果为 I=1 x=5 Do I= I + 1 x= x + 2 Loop Until I＞=7 Print " I= "；I Print "x="；x

A．I=4 x=5

B．I=7 x=15

C．I=6 x=8

D．I=7 x=17

单击一次命令按钮之后，下列程序段的执行结果为()。 Pubic Sub Proc(a()As Integer) Static i As Integer Do a(i)=a(i)+a(i+1) i=i+1 Loop While i<2 End Sub Private Sub Command1_Click() Dim m As Integer,i As Integer,x(10)As Integer For i=0 To 4:x(i)=i+1:Next i For i=1 To 2:CallProc(x()):Next i For i=0 To 4:Print x(i);Next i End Sub

A．3 4 7 5 6

B．3 5 7 4 5

C．1 2 3 4 5

D．1 2 3 5 7

A．i=4x=5

B．i=7x=15

C．i=6x=8

D．i=10x=7

以下能够正确计算n!的程序是

A．Privas Sub Command1_Click() n=5：x=1 Do x=x*i i=i+1 Loop While i＜n Print x End Sub

B．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

C．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

D．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

以下能够正确计算n!的程序是

A．Private Sub Command1_Click() n=5: x=1 Do x=x*i i=i+1 Loop While i＜n Print x End Sub

B．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

C．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

D．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