以下能够正确计算1+2+3+…+10的程序是A．Private Sub Command1_Click() Sum=0 ForI=1 To 10 Sum=Sum+I Next I Print Sum End SubB．Private Sub Command1_Click() Sum=0，I=1 Do While I＜=10 Sum=Sum+I I=I+1 Print Sum End SubC．Private Sub Command1_Click() Sum=0： I=1 Do Sum=Sum+I I=I+1

题目

以下能够正确计算1+2+3+…+10的程序是

A．Private Sub Command1_Click() Sum=0 ForI=1 To 10 Sum=Sum+I Next I Print Sum End Sub

B．Private Sub Command1_Click() Sum=0，I=1 Do While I＜=10 Sum=Sum+I I=I+1 Print Sum End Sub

C．Private Sub Command1_Click() Sum=0： I=1 Do Sum=Sum+I I=I+1 Loop While I＜10 Print Sum End Sub

D．Private Sub Command1_Click() Sum=0： I=1 Do Sum=Sum+I I=I+1 Loop Until I＜10 Print Sum End Sub

如果没有搜索结果或未解决您的问题，请直接联系老师获取答案。

相似问题和答案

第1题：

在下列程序段中，不能计算1到100之间奇数之和的是__________。

A．Dim sum As Integer sum = 0 For i = 1 To 100 Step 2 sum = sum + i Next

B．Dim sum As Integer sum = 0 For i = 1 To 100 If i Mod 2 ＜＞ 0 Then sum = sum + i Next

C．Dim sum As Integer sum = 0 For i = 1 To 99 sum = sum + i Next

D．Dim sum As Integer sum = 0 For i = 100 To 1 Step -1 If i Mod 2 ＜＞ 0 Then sum = sum + i Next

B

第2题：

下面程序可以正确求出1+2+3+。。。+n的和。（） #include ＜stdio.h＞ int main（) { int i = 1,sum = 0,n; scanf（“%d”,&n); while （i ＜= n) sum = sum + i; ++i; printf（"sum=%d",sum); return 0; }

错误

第3题：

执行以下程序段，程序输出结果是（)。 int i=5, sum1=0; sum2=0; while（i＜=4) { sum1=sum1+i; i++; } do { sum2=sum2+i; i++; }while（i＜=4); printf（"sum1=%d, sum2=%dn",sum1, sum2);

A．sum1=0, sum2=5

B．sum1=0, sum2=0

C．sum1=10, sum2=10

D．sum1=4, sum2=0

A

第4题：

若有以下程序段，sum和i都是整型变量，则不能与下面程序段等价的选项是（） sum=0; i=2; while（i＜=10) { sum=sum+i; i++; }

A．for(i=2, sum=0; i＜=10; i++) sum+=i;

B．sum=0; i=2; do{ sum=sum+i; i++; }while(i＜=10);

C．sum=0; i=10; while(i＞1) { sum=sum+i; i--; }

D．sum=0; i=11; do{ sum=sum+i; i--; }while(i＞1);

sum=0; i=11; do{ sum=sum+i; i--; }while(i＞1);

第5题：

已知程序段：

sum=0

For i=1 to 10 step 3

sum=sum+i

i=i*2

Next i

当循环结束后，变量i、sum的值分别为( )。

A．10、6

B．13、6

C．13、5

D．10、5

正确答案：B
解析：本题考查VBA中循环的知识。本题需要仔细分析循环次数，第一次循环时i的值为1，sum的值也为1，然后i=i*2值变为2，需要再加上步长值3；第二次循环时i的值为5，sum的值为6，然后i=i*2值变为10，需要再加上步长值3；要进行第三次循环前判断i的值为13不再满足循环条件，所以循环结束。

第6题：

以下能够正确计算1+2+3+…+10的程序是

A．Private sub Command1_Click( ) sum=0 For 1=1 To 10 Sum=sum+1， Next I Print Sum End Sub

B．Private sub Command1_Click( ) Sum=0,I=1 Do While l＜=10 Sum=Sum+1 I=I+1 Print Sum End Sub

C．Private Sub command1_click( ) Sum=0：I=1 Do Sum=Sum+1 I=I+1 Loop While I＜10 Print Sum End Sub

D．Private Sub command1_Click( ) Sum=0：I=1 Do Sum=Sum+1 l=I+1 Loop Until I＜10 Print Sum End Sub

正确答案：A
解析：A选项进行10次循环，分别将1至10累加给Sum，故正确。选项B缺少Loop关键词，否则也是正确的。选项C与D由于受条件“Iclo'’限制，Do循环只能进行一次。

第7题：

已知程序段： sum=0For i=1 to 10 step 3sum=sum+ii=i*2Nexti当循环结束后，变量i、sum的值分别为（）。

A.10、6

B.13、6

C.13、5

D.10、5

正确答案：B
B．【解析】本题考查VBA中循环的知识。本题需要仔细分析循环次数，第一次循环时i的值为1，sum的值也为1，然后i=i*2值变为2，需要再加上步长值3；第二次循环时i的值为5，sum的值也为5，然后i=i*2值变为10，需要再加上步长值3：要进行第三次循环前判断i的值为l3不再满足循环条件，所以循环结束。

第8题：

下列程序的功能是计算S=1!+2!+…+10!的值，完成程序填空。

S=0

FOR N=1 TO 10

P=1

FOR I=1 TO N

【】

ENDFOR

S=S+P

ENDFOR

?"SUM="，S

正确答案：P=P*I
P=P*I 解析：本题中，程序采用了双重循环，内循环计算N的阶乘，即1-N个自然数连乘，结果保存在变量P中，内循环结束时，N的阶乘完毕。题中要求计算 S=1!+2!+…+10!的值，应将每次求出的乘积累加起来，放在变量s中。在Visual FoxPro中，程序的基本结构有顺序结构、选择结构和循环结构3种。

第9题：

以下能够正确计算1+2+3+…+10的程序是( )

A.PrivateSubCommand1_Click()

Sum=0ForC=1To10

Sum=Sum+1

NextC

PrintSum

EndSub

B.PrivateSubCommand1_Click()

Sum=0,C=1DoWhileC<=10

Sum=Sum+1

C=C+1

Loop

PrintSum

EndSub

C.PrivateSubCommand1_Click()

Sum=0;C=1Do

Sum=Sum+1C=C+1

Loop

WhileC>10

PrintSum

EndSub

D.PrivateSubCommand1_Click()

Sum=0;C=1Do

Sum=Sum+1

C=C+1

Loop

WhileC<10

PrintSum

EndSub

以下能够正确计算1＋2＋3＋…＋10的程序是A.Private Sub Command1_Click() Sum=0 ForI=1 To 10 Sum=Su

题目

相似问题和答案